Turbo Pascal

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

Question

Информатика

Талюша

31 мая, 14:42

Turbo Pascal

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

+2

Ответы (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 км.?