Составьте и запишите ДВЕ КОМПЬЮТЕРНЫХ программы ** языке программирования Паскаль для...

Question

Составьте и запишите ДВЕ КОМПЬЮТЕРНЫХ программы на языке программирования

Паскаль для решения следующей задачи: возвести число Х в степень У.

Функцию POWER использовать нельзя!!!

НЕЛЬЗЯ использовать POWER(X,Y)!!!

Нужно составить ДВЕ программы для возведения заданного пользователем целого числа

в заданную пользователем целую степень (это задание 8 к пар. 39).

Каждая из ДВУХ программ должна иллюстрировать ЛЮБЫЕ ДВА из

ТРЁХ СУЩЕСТВУЮЩИХ ВИДОВ ЦИКЛОВ (с предусловием, с постусловием и с параметром).

То есть следует выбрать два из трёх видов циклов и в Паскале создать к ним две

программы.

Тип данных для вывода результата лучше использовать LONGINT (т.к. пределы вычислений будут в пределах от -2 147 483 648… до … 2 147 483 647). Прошу помогите срочно не понимаю тему (((

Answer 1

Цикл с параметром:
program prost;
uses crt;
var y, i: word;
x: LongInt;
begin
readln(x);
readln(y);
for i := 2 to y do
x:=x*x;
writeln(x);
end.
Цикл с постусловием:
program prost;
uses crt;
var x: LongInt;
y, i: word;
begin
i := 0;
readln(x);
readln(y);
repeat
x := x*x;
Inc(i)
until i <> y;
writeln(x);
end.