Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Спортсмен в 1ый день пробежал 10 км., в каждый следущий он пробегал на 10% больше предыдущего дня. сколько км. он пробежал за 7 дней.
Составить программу на языке паскаль

Ответ оставил Гость

Program Suma;
var
a,i:integer;
c,b:real;
Begin
a:=10;
b:=10;
c:=0;
for i:=1 to 7 do
begin
c:=(10*(b/100))+b;
b:=c;
writeln(c);
end;
End.