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