Question

Решите циклом ДЛЯ или циклом ПОКА.
1) Вычислить значение выражения z = 1 + 2+ 3+...+M. Распечатать квадрат и куб значений выражения.

Answer 1

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