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

jeneksoul1997 jeneksoul1997    2   27.08.2019 13:00    4

Ответы
sleta1998A sleta1998A  05.10.2020 22:46
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика