В Паскаль ABC

Бегун в первый день пробежал 5 км, каждый следующий день он пробегал на 10% больше предыдущего. Определить сколько он пробежит на седьмой день и за всю неделю в целом.

Question

Евграфий

3 января, 18:07

+4

Ответы (1)

Знаете ответ на вопрос?

Порфирий · Answer 1

Var

A, S:real;

i:integer;

Begin

A:=5;

S:=A;

For i: = 1 to 6 do

Begin

A:=A*1.1;

S:=S+A;

End;

WriteLn (A:0:3,' ', S:0:3)

End.