Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.05.2008, 10:03   #1
Anita_i
 
Регистрация: 11.05.2008
Сообщений: 9
Вопрос Проверить кратность трем

Ребят, помогите пожалуйста
Дано натуральное число, как проверить кратно ли оно трем?
Anita_i вне форума Ответить с цитированием
Старый 11.05.2008, 10:09   #2
-=<[Evklidd]>=-
Форумчанин Подтвердите свой е-майл
 
Аватар для -=<[Evklidd]>=-
 
Регистрация: 22.01.2008
Сообщений: 161
По умолчанию

Вот такой проверкой
if (n mod 3) = 0 then
writeln('N - kratno 3');
-=<[Evklidd]>=- вне форума Ответить с цитированием
Старый 11.05.2008, 10:14   #3
Anita_i
 
Регистрация: 11.05.2008
Сообщений: 9
По умолчанию

Спасибо большое
Anita_i вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверить тип переменной satana Общие вопросы Delphi 10 20.11.2010 21:43
Как проверить строку? nikleb PHP 6 07.07.2008 22:04
Паскаль. найти все числа кратные трем и посчитать их количество __k1ll3r__ Помощь студентам 6 02.04.2008 16:37