Turbo Pascal

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

Question

Информатика

Тонюша

4 ноября, 20:49

Turbo Pascal

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

+2

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