Kelesida
6 год назад
всегда была проблема с Паскалем. Пожалуйста посчитайте решить.спортсмен пробежал в первый день 10 км. Каждый следующий день он пробежал на 10% больше вчерашнего. Как узнать сколько он пробежит за n дней?Я попробовала так:var a:real;i,n:integer;begina:=10;readln(n);for i:=1 to n dobegina:=a+(a*0.1);end;write(a);end.
ОТВЕТЫ
Mosley David
Oct 24, 2020
Var A,S:real;
n:integer;
Begin
Write('n = ');
Read(n);
a:=10;
For n:= 1 to n do
Begin
a:=a*1.1;
S:=S+a
End;
WriteLn(S)
End.
n:integer;
Begin
Write('n = ');
Read(n);
a:=10;
For n:= 1 to n do
Begin
a:=a*1.1;
S:=S+a
End;
WriteLn(S)
End.
723
Смежные вопросы:
