Цитата:
Сообщение от matrinishna
6.Определить, является ли натуральное число N степенью числа 4 или нет.
|
Код:
VAR
N,M:LongInt;
BEGIN
Write('N= ');
ReadLn(N);
M:=1;
Repeat
M:=M*4;
Until M>=N;
If M=N then WriteLn('Yes!') else WriteLn('No!');
ReadLn;
END.