Помогите, пожалуйста!!!ТЕМА: ПРОГРАММИРОВАНИЕ ЦИКЛОВ1) Составьте на Паскале программу

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

Задать свой вопрос
Херувимов Денис
Трассировку сам постоишь, а решение я напишу.
Нелли Пряжинская
и задачки вапще легкотня -___-
1 ответ
Все выполнено на языке pascal;
1-ая задачка:
 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.
    
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт