Var s: string; k, i: integer; begin readln(s); k: =0; for i: =1 to length(s) do if s[i]='.' then k: =k+1; writeln('количество точек в строке=',k); end. изменить программу так, чтобы она удаляла все точки изтекста после нахождения их количества
Var s:string; k, i, n:integer; begin readln(s); k:=0; n:=Length(s); i:=1; while (i<=n) do begin if s[i]='.' then begin k:=k+1; Delete(s,i,1); i:=i-1; n:=n-1; end; i:=i+1; end; writeln('количество точек в строке=',k); writeln('новая строка: ',s); end.
Const m = 5; n = 4; Var A: array[1..m, 1..n] of real; i, j: integer; max: real; Begin for i := 1 to m do begin writeln(); for j := 1 to n do begin A[i,j] := random(200) - 100; write(A[i,j]:5, ' ');
if ((i=1) and (j=1)) or (max < abs(A[i,j])) then max:=abs(A[i,j]); end; end;
writeln(); writeln('Max = ', max);
for i := 1 to m do begin writeln(); for j := 1 to n do begin A[i,j] := A[i,j] / max; write(A[i,j]:5:2, ' '); end; end; End.
"наименьшее число среди чётных элементов последовательности" - эти слова можно понимать двояко: "элементы, которые стоят на чётных местах в последовательности (второй, четвёртый, шестой и т.д.)" ИЛИ "элементы, значение которых чётное". Поэтому два решения:
Для элементов, стоящих на чётных местах в последовательности: Program Starays; uses crt; const n=10; var i,ch,min:integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln(); writeln(); writeln('Программа запрашивает N чисел, находит наименьшее число среди чётных элементов последовательности'); write('Введите 1-e число: '); read(ch); write('Введите 2-e число: '); read(ch); min:=ch; for i:=3 to n do begin write('Введите ',i,'-e число: '); read(ch); if (min>ch) and (i mod 2=0) then min:=ch; end; writeln('Минимальное число среди элементов последовательности с четными номерами равно ',min); end.
Для элементов, значение которых чётное: Program Starays; uses crt; const n=10; var i,ch,k,min:integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln(); writeln(); writeln('Программа запрашивает N чисел, находит наименьшее число среди чётных элементов последовательности'); {находим первый чётный элемент} k:=1; repeat write('Введите ',k,'-e число: '); read(ch); k:=k+1; until ch mod 2 = 0; min:=ch; {находим остальные чётные элементы} for i:=k to n do begin write('Введите ',i,'-e число: '); read(ch); if (ch mod 2 = 0) and (min>ch) then min:=ch; end; writeln('Минимальное число среди элементов, значение которых чётное, равно ',min); end.
begin
readln(s);
k:=0;
n:=Length(s);
i:=1;
while (i<=n) do
begin
if s[i]='.' then
begin
k:=k+1;
Delete(s,i,1);
i:=i-1;
n:=n-1;
end;
i:=i+1;
end;
writeln('количество точек в строке=',k);
writeln('новая строка: ',s);
end.