Начав тренировки, спортсмен пробежал в первый день 10 км. Каждый следующий день он увеличивал дневную норму на 10% от нормы предыдущего дня. Определить, через сколько дней спортсмен пробежит суммарный путь 100 км. - Pascal(Паскаль) - Справочник юного программиста Pascal/Delphi

var s,dn:real;
d:integer;
begin
s:=0; dn:=10; d:=0;
repeat
s:=s+dn;
dn:=dn+dn*0.1;
inc(d);
until s>100;
writeln('Na ',d,' den probezhit 100 km');
readln;
end.

Похожие записи/страницы:

Leave a Comment