Составьте и запишите две компьютерных программы на языке программирования паскаль для решения следующей : возвести число х в степень у. нужно составить две программы для возведения заданного пользователем целого числа в заданную пользователем целую степень каждая из двух программ должна иллюстрировать любые два из трёх существующих видов циклов (с предусловием, с постусловием и с параметром). то есть следует выбрать два из трёх видов циклов и в паскале создать к ним две программы. тип данных для результата лучше использовать longint (т.к. это уже не 2, а 4 байта и пределы вычислений от -2 147 483 648… до … 2 147 483 647 )
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.