Question

Помогите, пожалуйста!!!
ТЕМА: ПРОГРАММИРОВАНИЕ ЦИКЛОВ
1) Составьте на Паскале программу возведения в N-ую степень целого числа x.
2) Составьте на языке Паскаль программу вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N. Построить трассировочную таблицу.

Answer 1

Все выполнено на языке pascal;
Первая задача:
 Var number, step, i, stepen: integer;
  Begin stepen:= 1; Read(number, step);
   For i:= 1 to step do  stepen := stepen * number;
   Writeln (stepen);
 End.

Вторая задача:
Var number, sum, max, i: integer;
Begin 
 sum:= 0;
 number:= 0; 
 Read(max);
 For i:= 1 to max do 
  Begin   
   number:= number + 1; 
   sum:= sum + number; 
  End;
  Writeln (sum);
End.