1. Каков будет рост ребенка через год, если за месяц он подрастает на 2% по сравнению с предыдущим. Рост в начале года 120 см.

2. В течение недели мама ежедневно ходила на рынок и тратила на 5 рублей больше, чем в предыдущий. Написать программу, подсчитать расход за неделю, если в первый день она потратила 100 р.

Паскаль

Question

Информатика

Дора

16 апреля, 11:07

1. Каков будет рост ребенка через год, если за месяц он подрастает на 2% по сравнению с предыдущим. Рост в начале года 120 см.

2. В течение недели мама ежедневно ходила на рынок и тратила на 5 рублей больше, чем в предыдущий. Написать программу, подсчитать расход за неделю, если в первый день она потратила 100 р.

Паскаль

+5

Ответы (2)

Знаете ответ?

Витуля · Answer 1

Var

var

P, x:real;

begin

P:=120;

while P<=120 do

begin

P:=P+0.02*P;

x:=x+1;

end;

write ('Ребёнок подрастёт за:', x,' ','месяцев') ;

end.

Евлогий · Answer 2

Var i:integer;

r:real;

begin

r:=120;

for i:=1 to 12 do

r:=r+r*0.02;

writeln (r:3:2) ;

end.

var a, i:integer;

begin

for i:=1 to 7 do

a:=a+5;

writeln (a) ;

end.