Помогите! Мне завтра сдавать!!! - Помощь студентам

Loren · 24.02.2009, 15:41

Даны 3 целых числа. Найти среди них четные и кратные 5.

Sazary · 24.02.2009, 15:49

И в чем проблема?
Четность проверяется функцией odd(a) (возвращает true, если a - нечетное). Или так:

Код:

if a mod 2 = 0 then
 begin
  { действия если четное }
 end;

-------
Проверка на кратность 5 также:

Код:

if a mod 5 = 0 then
 .......

И прочитайте правила.

24.02.2009, 15:41	#1
Loren Новичок Джуниор Регистрация: 21.02.2009 Сообщений: 2	Помогите! Мне завтра сдавать!!! Даны 3 целых числа. Найти среди них четные и кратные 5.

24.02.2009, 15:49	#2
Sazary В тени Старожил Регистрация: 19.12.2008 Сообщений: 5,788	И в чем проблема? Четность проверяется функцией odd(a) (возвращает true, если a - нечетное). Или так: Код: `if a mod 2 = 0 then begin { действия если четное } end;` ------- Проверка на кратность 5 также: Код: `if a mod 5 = 0 then .......` И прочитайте правила. Вполне очевидно, чтобы что-то понять, необходимо книги читать. Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
помогите срочно завтра сдавать...	Defer	Помощь студентам	2	25.01.2009 20:01
[B]Народ! Проверки мне верно или не верно? мне надо завтра сдавать[/B]	Vladislav_87	Паскаль, Turbo Pascal, PascalABC.NET	6	04.06.2008 14:34
Помогите по паскалю завтра сдавать иначе выгонят!!!!!	Кристина	Паскаль, Turbo Pascal, PascalABC.NET	10	13.01.2007 23:05