Спортсмен, начав тренировки, в первый день пробежал 10 км. каждый следующий день он увеличивал дистанцию на 12 %. написать программу, определяющую общую длину пробега за месяц и первый день с начала тренировок, после которого дистанция превысит 25 км.

129

428

Посмотреть ответы 2

Ответы на вопрос:

golicinskaya

Информатика

4,6(47 оценок)

Const d: real = 10; // число км в день p: real = 1.12; // % m: integer = 30; // число дней в месяце n: integer = 25; // макс дистанция в условии var c: integer; s, x: real; begin x : = d; for c : = 1 to m do begin s : = s + x; x : = x * p; end; writeln('в месяц пробегает: ', s); x : = d; c : = 0; while (x < n) do begin c : = c + 1; x : = x * p; end; writeln('нужно ', c, ' дней'); end.