Составить график тренировок спортсмена на неделю по правилу - Pascal ABC

Формулировка задачи:

Разработайте программу для решения задачи: «Составить график тренировок спортсмена на неделю по правилу: в первый день пловец должен проплыть 3 км, а в каждый следующий день на 10% больше, чем в предыдущий». Ответ предоставить в виде: таблицы: 1 день - 3 км; 2 день - 3,3 км; ..................... 7 день - х км.

Решение задачи: «Составить график тренировок спортсмена на неделю по правилу»

Листинг программы

var i:integer;
k:real;
begin
k:=3;
for i:=1 to 7 do
begin
writeln(i,' день - ',k:0:1,' км;');
k:=k*1.1;
end;
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

Создается переменная i типа integer, которая будет использоваться для перебора чисел от 1 до 7.
Создается переменная k типа real, которая будет использоваться для хранения значения расстояния в километрах.
Значение k устанавливается равным 3.
Запускается цикл for, который будет выполняться 7 раз (от 1 до 7).
Внутри цикла выводится на экран текущее значение i (число дня) и значение k (расстояние в километрах), разделенные пробелом.
После завершения внутреннего цикла значение k устанавливается равным значению k умноженному на 1.1. Это необходимо для увеличения расстояния на 10% каждый день.
Выполняется выход из внешнего цикла for.
Конец программы.