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

Question

Составьте и запишите ДВЕ КОМПЬЮТЕРНЫХ программы на языке программирования
Паскаль для решения следующей задачи: возвести число Х в степень У.
Нужно составить ДВЕ программы для возведения заданного пользователем целого числа
в заданную пользователем целую степень
Каждая из ДВУХ программ должна иллюстрировать ЛЮБЫЕ ДВА из
ТРЁХ СУЩЕСТВУЮЩИХ ВИДОВ ЦИКЛОВ (с предусловием, с постусловием и с параметром).
То есть следует выбрать два из трёх видов циклов и в Паскале создать к ним две
программы.
Тип данных для результата лучше использовать LONGINT (т.к. это уже не 2, а 4 байта и пределы вычислений от -2 147 483 648… до … 2 147 483 647 )

Answer 1

Var St,X,Y:longint;
Begin
Write('X = ');ReadLn(X);
Write('Y = ');ReadLn(Y);
St:=1;
For Y:= 1 to Y do
    St:=St*X;
Write(X,'^',Y,' = ',St)
End.



Var St,X,Y:longint;
Begin
Write('X = ');ReadLn(X);
Write('Y = ');ReadLn(Y);
Write(X,'^',Y,' = ');
St:=1;
While Y>0 do
   Begin
   St:=St*X;
   Y:=Y-1
   End;
Write(St);
End.

Comments

спасибо