Помогите написать на паскале

Начав тренировки лыжник в первый день пробежал 10 км. Каждый следующий день он увеличивал пробег на 10% от пробега предыдущего дня. Определить пробег лыжника за второй, третий, ..., десятый день.

Question

Информатика

Таисьюшка

12 июля, 21:56

Помогите написать на паскале

Начав тренировки лыжник в первый день пробежал 10 км. Каждый следующий день он увеличивал пробег на 10% от пробега предыдущего дня. Определить пробег лыжника за второй, третий, ..., десятый день.

+4

Ответы (1)

Знаете ответ на вопрос?

Адолия · Answer 1

Program asd;

var a, b:integer;

begin

a:=10;

writeln ('1=10') ;

for b=2 to 10 do

begin

writeln (b,'=', a + ((a/100) * 10) ;

a:=a + ((a/100) * 10) ;

end;

end.