Turbo Pascal

В 1 день спортсмен пробежал 10 км. Каждый следующий день спортсмен увеличивал норму пробежки на 500 м (0,5 км). через сколько дней он будет пробегать 30 км?100 км?

Question

Информатика

Эмилианка

25 декабря, 23:18

Turbo Pascal

В 1 день спортсмен пробежал 10 км. Каждый следующий день спортсмен увеличивал норму пробежки на 500 м (0,5 км). через сколько дней он будет пробегать 30 км?100 км?

+3

Ответы (1)

Знаете ответ на вопрос?

Борислава · Answer 1

Var c, d, b, f:integer;

a, e:real;

Begin

a:=10;

e:=10;

f:=0;

while a<30 do

begin

a:=a+1/2;

b:=b+1;

end;

writeln (b) ;

while e<100 do

begin

e:=e+1/2;

f:=f+1;

end;

writeln (f) ;

end.

Turbo PascalВ 1 день спортсмен пробежал 10 км. Каждый следующий день спортсмен увеличивал норму пробежки на 500 м (0,5 км). через сколько дней он будет пробегать 30 км?100 км?

Turbo Pascal

В 1 день спортсмен пробежал 10 км. Каждый следующий день спортсмен увеличивал норму пробежки на 500 м (0,5 км). через сколько дней он будет пробегать 30 км?100 км?