Синформатикой,. старик в первый год после свадьбы поймал для своей жены три золотые рыбки. каждый следующий год он ловил на 1 золотую рыбку больше. сколько рыбок съедят старик со старухой за 33 года? 2)красная шапочка принесла бабке 10 пирожков. первый пирожок бабка съела за 5 минут, а каждый следующий на 2 минуты дольше. за сколько мин. бабка съела все пирожки? блок схема

без остатка нет

25: 2=12+1 клетка в остатке

копируется, редактируется

program xxx;

  var i, n : integer

                    d : array[1..30] of real;

begin

  write ('введите разметность массива n=');

  readln(n);

  writeln(''введите элементы массива d: ');

  for i: =1 to n do

        readln(d[i]);

  writeln ('исходный массив d: ');

  for i: =1 to n do

      write(d[i]);

  for i: =1 to n do

      if d[i] mod 3 = 0 then d[i]: = 2 * d[i];

  writeln ('полученный массив d: ');

  for i: =1 to n do

      write(d[i]);

  readln

end.

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.