uses crt; var n,m,i,j,k:integer; a:array[1..1000] of integer; begin repeat writeln('Введите 2 натуральнвх числа n<m<1000:'); read(n,m); until (n>0)and(n<m)and(m<1000); writeln('Начальный ряд:'); k:=0; for i:=n to m do begin inc(k); a[k]:=i; write(a[i]:4); end; writeln; while k>=2 do begin i:=1; while i<=k do begin for j:=i to k-1 do a[j]:=a[j+1]; k:=k-1; i:=i+1; end; i:=2; while i<=k do begin f or j:=i to k-1 do a[j]:=a[j+1]; k:=k-1; i:=i+1; end; end; write(a[k]); end.
begin writeln('Введите скорость катера (vk) и скорость течения реки (vt) в км/ч: '); read(vk,vt); writeln('Введите время (t) в часах: '); read(t); writeln('Катер за ',t,'ч. пройдет ',t*(vk+vt),' км'); end.
2.
var n,x: real;
begin writeln('Введите кол-во кактусов: '); read(x); writeln('Сколько кактусов было побрито? '); read(n); if (x - n) < x/2 then writeln('Гладких кактусов больше.'); if (x - n) = x/2 then writeln('Небритых и гладких поровну.'); if (x - n) > x/2 then writeln('Небритых кактусов больше.'); end.
1,5GB будеть. 32Mbps 1Gbps