Нужна помощь

Flag

Дата: Четверг, 13.03.2008, 03:42 | Сообщение # 1

Новичок

Группа: Пользователи

Сообщений: 1

Репутация: 0

Замечания: 0%

Статус: Offline

Дано трехзначное число. Проверить являются ли четными все цифры этого числа. Надо решить такую задачу

Seqular

Дата: Четверг, 13.03.2008, 21:36 | Сообщение # 2

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

Code

If (Not Odd(x div 100)) and (Not Odd((x div 10) mod 10)) and (Not Odd(x mod 10)) then
Writeln('Все цифры четные')
Else Writeln('Присутствуют нечетные числа');

Это не подойдет?

Поддерживаю также проект сообщество молодых сисадминов

		Четверг, 09.01.2025
	Pascal 4 All