Программа в pascal abc. а) треугольник с вершинами (100. 100), (150. 100 (30, 170); б) прямоугольник с вершинами (80. 30). (170. 30). (170.150). (80.150): в) пятиугольник с вершинами (100. 100). (150. 100). (170. 120). (150. 140), (100. 140), (80. 120): г) шестиугольник с вершинами (120. 100). (140.120). (140, .160), (100.140), (100.120):

Паскаль авс: program  ainur59; uses crt; const n=10; var   i,j: integer;   matr: array[1..n,1..n] of integer;   diag: array[1..n] of integer; begin   writeln('*** alphaeus is ***');   writeln('***                  ok                        ***');   writeln('для заданной квадратной матрицы сформировать одномерный массив из её диагональных элементов');   randomize;   writeln('матрица: ');   for i: =1 to n do   begin       for j: =1 to n do       begin           matr[i,j]: =random(100)-50;           write(matr[i,j]: 4,' ');           if i=j then diag[i]: =matr[i,j];       end;       writeln();   end;   writeln();   writeln('mассив диагональных элементов: ');   for i: =1 to n do       write(diag[i]: 4,' '); end.

Var summ, i: integer; begin summ: =0; for i: =21 to 99 do if (i mod 3)=0 then summ: =summ+i; write ('сумма чисел кратных трём= ',summ); end. var summ, i: integer; begin i: =21; sum: =0; while (i< 100) do begin   if (i mod 3)=0 then summ: =summ+i;   i: =i+1;   end; write ('сумма чисел кратных трём= ',summ); end. var summ, i: integer; begin i: =21; summ: =0; repeat   if (i mod 3)=0 then summ: =summ+i;   i: =i+1;   until (i> =100); write ('сумма чисел кратных трём= ',summ); end.