3. Составьте программу рисования узора, показанного на рисунке.
Количество повторений элементов
узора по вертикали и горизонтали
задается пользователем,
програм
узора, показанного
Количество повторен
узора по вертикали и
задается пользователем

месяцы,каждый месяц в каждом времени года-это и есть классификация

var  a: array [1..10] of integer;

n,i: integer;

begin

  {vvod massiva skopirovat suda}

  for i: = 1 to 10 do begin

      if a[i] mod 10 = 0 then

          n: =n+1;

  end;

  writeln(n);

end.

остатки от деления 72*n на 105 где n начинается с 2

var i, j: integer;

begin for i : = 2 to 100 do writeln(i*72 mod 105); end.

3967845128451189057249663301026936375429814815875421936027996633072396784512845118905724966330102693637542981481587542193602799663307239

дальше идет повторение т.е. нет остатка 1

то же самое будет если делить 105n с остатком на 72 не будет остатка 1

uses crt; var a,s: integer; begins: =0; writeln('введите числа'); while a< > 0 do beginreadln(a); if (a> 0) then s: =s+a; end; writeln('s=',s); end.