Рачинский
4 год назад
В Паскаль ABCБегун в первый день пробежал 5 км, каждый следующий день он пробегал на 10% больше предыдущего. Определить Как узнать сколько он пробежит на седьмой день и за всю неделю в целом.
ОТВЕТЫ
Любка
Oct 24, 2020
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.
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.
967
Смежные вопросы:
