Цитата:
Сообщение от aizkil
№4
Ввести некоторое число N. Определить является ли оно числом:
Неотрицательным? Кратным 6? Меньшим -1? Степенью 4?
|
Код:
var
n,m:integer;
begin
write ('n=');
readln (n);
if n>0 then writeln ('НЕ отрицательное');
if n mod 6=0 then writeln ('кратное 6') else writeln ('Не кратное 6');
if n<-1 then writeln ('меньше -1') else writeln ('больше -1');
m:=1;
repeat
m:=m*4;
until m>=n;
if m=n then writeln ('степень 4') else writeln ('НЕ степень 4');
readln
end.