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