Определи количество ячеек в диапазоне A1:A1. Решите

var

  x: real;

begin

  readln(x);

writeln(x: 0: 0);

end.

поскольку http: \\ftp. не бывает, то ftp: \\schools.ru\program.exe

var

s,s1: real;

k: integer;

begin

s: =10;

k: =1;

while s< 20 do

begin

s: =s*1.1;

k: =k+1;

end;

writeln('в ', k,' день он пробежит 20 км');

s: =10;

s1: =10;

k: =1;

while s< 200 do

begin

s: =s+s1*1.1;

s1: =s1*1.1;

k: =k+1;

end;

writeln('в ', k,' день суммарный пробег превысит 200 км');

end.

в феврале 1946 года был создан первый компьютер.