Задание с алгоритмами

* 60 / 16 =

var a: array[1..10, 1..10] of integer; i, j, s: integer;

begin s : = 0; for i : = 1 to 10 do begin for j : = 1 to 10 do begin a[i, j] : = random(20) + 1; write(a[i, j]: 3); if (j = 2) and (a[i, j] > 10) then s : = s + a[i, j]; end; writeln; end; writeln('сумма элементов 2го столбца больших 10 равна', s); end.

1, 2, 5, 9 -однозначные числа

10, 25, 40, 41 - двузначные числа

1, 2, 11, 29 - простые числа

var s,a,i: real;

begin

  repeat

      writeln("вес следущего пасажира kg");

      read(a);

      s: =s+a;

      if s< 8000 then

          i: =i+1;

  until s> =8000

  writeln(i);

end.

var b,a,i: real;

begin

  read(a,b);

  repeat

      a: =a+a*0.03;

      i: =i+1;

  until a> =b

  writeln(i);

end.

var i,s: integer;

begin

  for i: = 1900 to 1999 do begin

        s: =s+365;

        if (i mod 400=0) or ((i mod 4 = 0) and (i mod 100< > 0)) then

            s: = s+1;

  end;

  writeln(s);

end.