Напишите програму вычисления произведений : всех чисел от 1 до 100, кратных 3, но некратных 6.

uses crt; var p,i: integer; begin  clrscr;   writeln('chisla: ');   p: =1;   for i: =1 to 100 do    if (i mod 3 = 0)and (i mod 6 < > 0) then    begin      p: =p*i;       write(i,' ');     end;   writeln;   write('proizv.=',p); end.

// pascalabc.net 3.0, сборка 1064 const   n = 10; var   ms: array[1..n] of string;   t: string;   i, j: integer;   f: text; begin   { чтение матрицы из файла }   assign(f, 'in.txt'); reset(f);   for i : = 1 to n do readln(f, ms[i]);   close(f);   { вывод матрицы на экран }   writeln('*** бинарная матрица ***');   for i : = 1 to n do writeln(ms[i]);   { сортировка обменом (простейшая) }   for i : = 1 to n - 1 do       for j : = 1 to n - 1 do           if ms[j] > ms[j + 1] then           begin t : = ms[j]; ms[j] : = ms[j + 1]; ms[j + 1] : = t end;   { поиск одинаковых строк }   writeln(' строки');   j : = 1; t : = ms[1];   for i : = 2 to n do   begin       if ms[i] = t then inc(j)       else begin           if j > 1 then begin writeln(t); j : = 1 end;           t : = ms[i]       end   end;   if j > 1 then writeln(t) end. контрольное решение: *** бинарная матрица *** 1 1 0 1 0 1 0 1 0 1 0 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 1 0 1 0 1 0 1 0 0 0 0 1 0 1 0 1 0 1 1 0 1 0 1 0 1 0 1 0 1 1 1 0 1 0 1 0 1 0 1 0 0 1 0 1 0 1 0 1 0 0 1 0 1 0 1 0 1 0 1 строки 0 0 1 0 1 0 1 0 1 0 0 1 0 1 0 1 0 1 0 1 1 0 1 0 1 0 1 0 1 0 1 1 0 1 0 1 0 1 0 1

Посчитаем сколько всего узлов на этом листке: у нас он  n клеточек в высоту, значит всего в каждом столбике  n+1 узел; у нас он м клеточек в ширину, значит всего в каждой строчке м+1 узел.значит всего узлов ( n+1)*(м+1).чтобы определьть прямоугольник, надо определить два узла в которых будут противоположные углы: первый узел мы можем выбрать ( n+1)*(м+1) способами; второй узел мы можем выбрать  n*м способами (мы не можем выбрать тот столбик и тот ряд, в котором у нас стоит первый узел).тоэсть всего способов выбрать (n+1)*(м+1)* n*м, но это не так.рассмотрим весь лист как выбраный прямоугольник.пусть мы его выбрали так: (0; 0),  ( n+1; м+1).этот же прямоугольник мы считали, когда плучали с такими координатами: 1) ( n+1; м+1),  (0; 0).2) ( n+1; 0),  (0; м+1).3) (0; м+1),  ( n+1; 0).и так с каждым прямоугольником, тоэсть каждый прямоугольник мы считаем 4 раза, тоэсть конечная формула такова: (n+1)*(м+1)*n*м / 4. осталось составить прогрмму, которая будет это вичислять. с++: #include < iostream> using namespace std; int main() { int n, m, k; cin > > n > > m; k = (n+1)*(m+1)*n*m / 4; cout < < k < < endl; return 0; } pascal: program znanija; var n, m, k: integer; begin read(n); read(m); k: =((n+1)*(m+1)*n*m) div 4; writeln(); writeln(k); end.