Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Все выполнено на языке 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.