В Паскаль ABC Бегун в первый день пробежал 5 км, каждый следующий день он пробегал на 10% больше предыдущего. Определить сколько он пробежит на седьмой день и за всю неделю в целом.
Ответы
Ответ дал:
0
var a, b: real;
i: byte;
begin
a := 5;
b := 5;
for i := 2 to 7 do begin
a := 1.1 * a;
b := b + a
end;
writeln ('За седьмой день бегун пробежит ', a,' км');
writeln ('За неделю бегун пробежит ', b,' км')
end.
Можно вместо введения цикла использовать формулы n-ого члена геометрической прогрессии (в данном случае 7-ого) и суммы n членов геометрической прогрессии (в данном случае 7-и).
i: byte;
begin
a := 5;
b := 5;
for i := 2 to 7 do begin
a := 1.1 * a;
b := b + a
end;
writeln ('За седьмой день бегун пробежит ', a,' км');
writeln ('За неделю бегун пробежит ', b,' км')
end.
Можно вместо введения цикла использовать формулы n-ого члена геометрической прогрессии (в данном случае 7-ого) и суммы n членов геометрической прогрессии (в данном случае 7-и).
Ответ дал:
0
Спасибо огромное!!!
Ответ дал:
0
Пожалуйста :)
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад