Turbo pascal в 1 день спортсмен пробежал 10 км.каждый следующий день спортсмен увеличивал норму пробежки на 500м (0,5км).через сколько дней он будет пробегать 30 км? 100 км?
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.
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.