Turbo Pascal

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

Question

Информатика

Альберт

6 июня, 22:26

Turbo Pascal

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

+4

Ответы (1)

Знаете ответ?

Генриетта · Answer 1

Var

i:integer;

x, h, n:real;

begin

writeln ('Введите x, h и n') ;

readln (x, h, n) ;

while x
begin

x:=x+h;

i:=i+1;

end;

writeln ('за ', i,' дней') ;

end.

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

Turbo Pascal

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