Начав тренировки, лыжник в первый день пробегал 10 км.В каждый следующий день он увеличивал длину пробега на 10% от предыдущего дня. Определить, в какой день он пробежит 20 км. Составить программу в паскале. (Оператор Цикл. Ц...
Начав тренировки, лыжник в первый день пробегал 10 км.
В каждый следующий день он увеличивал длину пробега на 10% от предыдущего дня. Определить, в какой день он пробежит 20 км. Составить программу в паскале. (Оператор Цикл. Цикл с предусловием.)
Гость
Ответ(ы) на вопрос:
ГостьВариант номер 1:
program c1ba;
var a:byte;
p:real;
begin
p:=10;
a:=1;
repeat begin
p:=p+(p/10);
a:=a+1;
end;
until p>=20;
writeln('a=',a);
end.
Вариант номер 2:
program c1ba;
var a:byte;
p:real;
begin
p:=10;
a:=1;
while p<=20 do begin
p:=p+(p/10);
a:=a+1;
end;
writeln('a=',a);
end.
Не нашли ответ?
Похожие вопросы