Question

Turbo Pascal

Cпортсмен в первый день пробежал X км. Каждый следующий день он пробегал на H км. больше, чем в предыдущий. За сколько дней он пробежит N км.?

Answer 1

var
i:integer;
x,h,n:real;
begin
writeln('Введите x,h и n');
readln(x,h,n);
while x<n do 
begin
x:=x+h;
i:=i+1;
end;
writeln('за ',i,' дней');
end.