Паскаль: Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня. Сколько километров он пробежит В сумме за семь дней? Составьте программу решения задани в Паскале с помощью WHILE

var

i, x: integer; / / объявляем переменные целочисленного типа.

y, sum : real; / / объявляем переменные вещественного типа.

begin

y : = 10; / / пробег спортсмена в первый день.

while i < 6 do / / в цикле определяем пробег спортсмена со 2-го по 7-й день.

begin

y : = y + (y / 100 * 10); / / пробег спортсмена за i-й день.

sum : = sum + y; / / считаем сумму километров.

i : = i + 1; / / счетчик дней недели.

end;

write ('В сумме за 7 дней спортсмен пробежал: ', round (sum + 10,2), ' км.'); / /вывод на экран.

end.