Задание:
Написать программу, которая выводит на экран суммарный путь спортсмена за N дней тренировки. Если известно, что спортсмен, начав тренировку, в первыйдень пробежал 5 км, каждый день он увеличивает дневную норму на 17% нормы предыдущего дня. ПОМОГИТЕ ПОЖАЛУЙСТА! Желательно решение в 3 способах
Решение:
Program sportsman; var N, S, i: real; beginwriteln ('Введите количество дней тренировки'); readln (N); S: =5for i: =1 to N-1 doS: =S+5/100*17; writeln ('За это количество дней тренировок спортсмен пробежал', S, 'км'); readln; end.
Знаете другой ответ?