Задачка по паскалю

Diman · 24.03.2009, 23:13

Определить является ли число n одновременно положительным и кратным 3.

ummasha · 25.03.2009, 08:41

Как-то так:
Var n:integer;
Begin
readln(n);
If (n>0)and(n mod 3=0) then writeln('YES')
else writeln('NO');
END.

Diman · 25.03.2009, 11:31

Спасибо

Хотя учитель сказал что не до конца...

24.03.2009, 23:13	#1 (permalink)
Diman Member Регистрация: 26.01.2009 Сообщений: 721 Сказал(а) спасибо: 0 Поблагодарили 2 раз(а) в 2 сообщениях Репутация: 741	Задачка по паскалю Определить является ли число n одновременно положительным и кратным 3.

25.03.2009, 08:41	#2 (permalink)
ummasha Member Регистрация: 24.12.2008 Сообщений: 419 Записей в дневнике: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 1311	Как-то так: Var n:integer; Begin readln(n); If (n>0)and(n mod 3=0) then writeln('YES') else writeln('NO'); END.

25.03.2009, 11:31	#3 (permalink)
Diman Member Регистрация: 26.01.2009 Сообщений: 721 Сказал(а) спасибо: 0 Поблагодарили 2 раз(а) в 2 сообщениях Репутация: 741	Спасибо Хотя учитель сказал что не до конца...

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