Цитата:
Сообщение от cережка
Задание 4. Ввести некоторое целое число N. Определить, является ли оно числом:Неположительным?Кратным 5?Большим 2?Степенью 3?
|
Код:
Program Z_4;
var
N:Integer;
begin
write('Введите N:');
readln(N);
if N<0 then
writeln('Неположительное')
else
writeln('Положительное или ноль');
if (N mod 5 )=0 then
writeln('Кратно 5')
else
writeln('Не кратно 5');
if N>2 then
writeln('Больше 2х')
else
writeln('Не больше 2х');
repeat
if (N mod 3)<>0 then
begin
writeln('Не степень 3');
break;
end;
N:=N div 3;
until
N=1;
if N=1 then
writeln('Степень 3');
readln;
end.