Решите циклом для или циклом пока. 1) вычислить значение выражения z = 1 + 2+ 3++m. распечатать квадрат и куб значений выражения.

Var   sum,i,m: integer; begin   sum: =0;   read(m);   for i: =1 to m do   sum: =sum+i;   writeln(sum); end.

Program n_5; var     a, b, c: real; procedure n_1; begin   if ((a< b) and (a> c)) or ((a< c) and (a> b)) then   write (a)   else   if ((b< a) and (b> c)) or ((b< c) and (b> a)) then     write (b)   else     if ((c< a) and (c< b)) or ((c< b) and (c> a)) then     write (c); end; begin   writeln ('введите три трёхзначных числа');   readln (a);   readln (b);   readln (c);   if ((a > = 100) and (a < = 999) and (a < > b) and (a < > c)) and ((b > = 100) and (b < = 999) and (b < > a) and (b < > c)) and ((c > = 100) and (c < = 999) and (c < > a) and (c < > b)) then n_1   else   write ('error'); end.

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin   var (m,n): =readinteger2('количество строк и столбцов в массиве: ');   writeln('*** исходный массив ***');   var a: =matrrandom(m,n,-99,99);   a.println(4); writeln(4*a.colcount*'-');   writeln('суммы по строкам');   a.rows.select(row-> row.sum).println;   writeln('произведения по столбцам');   a.cols.select(col-> col.aggregate(biginteger(,q)-> p* end. пример количество строк и столбцов в массиве: 5 4 *** исходный массив ***   -99 -70  -9 -24   87 -34  66  -5   92 -65  -9 -51   61  99  79  17   -40  22  75  88 суммы по строкам -202 114 -33 256 145 произведения по столбцам 1933446240 -336936600 31675050 -9155520