|
zadach190.PAS |
|
{* Задача 190 *}Unit ZADACH190; InterfaceImplementationBegin writeln( 'В первый день тренировок спортсмен пробежал 1 км. Каждый следущий день он пробегал расстояние на 10% более, чем в предыдущий. Сколко вскго км пробежит за n дней?'); End. Program pas13558;
Uses zadach190.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
dist : real;
n : integer;
i : integer;
Begin
dist := 1;
write( 'n=');
read(n);
For i := 1 To n - 1 Do {* Увеличиваем i от 1 до n с шагом 1 *}
dist := dist * 1.1;
writeln(dist : 1 : 2);
End.
|