// фам 1 подсчитать 

• var  i,p: integer;
• s: ;
• begin
• p :=3 ;
• 
  
•  for i :=  to   do
•   s:= s +s/100* p ;
•   writeln('s' ,s) ;
• end.

Задача 2

// какой спортсмен бегает больше

var  i,p,p1: integer;

s,s1:real;

begin

s:=8;

p :=4 ;

 for i := 1 to 30  do

  s:= s +s/100* p ;

  writeln(s) ;

  

s1:=10;

p1:=3 ;

 for i := 1 to 30  do

  s1:= s1 +s1/100* p1 ;

  writeln(s1) ;

  if s> s1 then   writeln('первый бегает больше')

            else   writeln('второй бегает больше')

  

  

end.

24. В кинотеатре 25 рядов кресел. В первом ряду 15 кресел, в каждом последующем на 2 кресла больше, чем в предыдущем. Сколько мест в зрительном зале?

25. Одноклеточная амеба каждые три часа делится на 2 клетки. Определить, сколько будет амеб через 1,2, 3, ….,24 часа.

26.В первый час работы рабочий изготавливает 10 деталей, за каждый последующий час на 2 детали больше, чем за предыдущий. Подсчитать, сколько рабочий изготовит деталей за 8 часов работы.

27.Ученик в первый день занятий выучил 10 иностранных слов. В каждый последующий день он выучивал на 3 слова больше, чем в предыдущий. Сколько слов выучит ученик за четверть( 60  дней занятий)?