Регистрация
Войти
Стать экспертом Правила
Информатика

ПОМОГИТЕ! Пожалуйста! Дам 40 баллов! Есть ДОБРЫЕ ЛЮДИ, ЗАРАНЕЕ СПАСИБО :)))
Составьте программу, проверяющую, верно ли утверждение, что введенное вами целое число делится без остатка на 3.

ОТВЕТЫ

var

   Digit: integer;

begin

   readln(Digit);

   writeln(Digit mod 3 = 0);

end.

105
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам