Turbo Pascal

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

Question

Информатика

Мелентий

30 октября, 10:43

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 км.?