var s:real; flag,d,m:integer; begin s:=10; d:=1; while s<=100 do begin writeln('d: ',d,' s: ',s); {эта строка не обязательна, выводит на экран ежедневный пробег, как бы для контроля} s:=s+s*0.1; d:=d+1; if s<20 then flag:=d; end; writeln('> 20 km :', flag+1,' day'); writeln('>100 km : ',d); end.
Const nm = 20; nn = 20; var a: array[1..nm, 1..nn] of integer; b: array[1..nm] of integer; i, j, m, n, mina: integer;
begin Write('Введите число строк и столбцов массива: '); Readln(m,n); Randomize; Writeln('Исходный массив'); for i := 1 to m do begin for j := 1 to n do begin a[i, j] := Random(101) - 50; Write(a[i, j]:4) end; Writeln end;
for i:=1 to m do begin mina:=32767; for j:=1 to n do if mina>a[i,j] then mina:=a[i,j]; b[i]:=mina end;
Writeln('Сформированный массив'); for i:=1 to m do Write(b[i]:4); Writeln end.
s:real;
flag,d,m:integer;
begin
s:=10; d:=1;
while s<=100 do
begin
writeln('d: ',d,' s: ',s); {эта строка не обязательна, выводит на экран ежедневный пробег, как бы для контроля}
s:=s+s*0.1;
d:=d+1;
if s<20 then
flag:=d;
end;
writeln('> 20 km :', flag+1,' day');
writeln('>100 km : ',d);
end.