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