Спортсмен в 1ый день пробежал 10 км., в каждый следущий он пробегал на 10% больше предыдущего дня. сколько км. он пробежал за 7 дней.Составить программу на языке паскаль
Спортсмен в 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.
Гостьvar finish,norma: real;i:integer;
begin
norma:=10;
finish:=10;
for i:=1 to 6 do
begin
norma:=1.1*norma;
finish:=finish+norma;
end; writeln('all= ',finish)
end.
Не нашли ответ?
Похожие вопросы