Turbo Pascal Cпортсмен в первый день пробежал X км. Каждый следующий день он пробегал **...

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 xbegin
x:=x+h;
i:=i+1;
end;
writeln('за ',i,' дней');
end.

Comments

Спасибо!