Показать сообщение отдельно
Старый 11.12.2012, 15:27   #5 (permalink)
Léon
С# - learn or die
 
Аватар для Léon
 
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
По умолчанию

Цитата:
Сообщение от 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.
Léon вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070