Turbo PascalВ 1 день спортсмен пробежал 10 км.Каждый следующий день спортсмен увеличивал...

Question

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

Comments

уже

---

это название

---

не обязательно

---

Можешь написать в самом верху program test;

Answer 1

Var c,d,b,f:integer;
a,e:real;
Begin
a:=10;
e:=10;
f:=0;
while a<30 do<br>begin
a:=a+1/2;
b:=b+1;
end;
writeln(b);
while e<100 do<br>begin
e:=e+1/2;
f:=f+1;
end;
writeln(f);
end.

Comments

Спасибо:)