Ответы на вопрос:
Var a: longint; begin readln(a); if a mod 3=0 then writeln('yes') else writeln('no'); end.
Популярно: Информатика
-
Байт,килобайт,мегабайт - единицы измерения информации информации. каждая...
danik13114.08.2021 01:44 -
Назовите имя и свойства объекта человек ....
Mashylka99924.04.2021 01:12 -
Дано число, посчитать, сколько разрядов после запятой...
vanessashevchuk22.08.2022 22:24 -
Заполните пропуск в предложении: «3D моделирование основано на принципе...
757575757509.12.2020 07:24 -
Информатика!!!!!!!!!!!!!!!...
Елдиор12.10.2020 02:10 -
Дано слово. если его длина нечётная, то удалить среднюю букву, в противном...
SKARP1786820.02.2020 22:40 -
Внижней части рабочего поля расположена? ?...
urybalka2716.03.2020 07:12 -
Дано n вещественных чисел. найти величину наибольшего из них. выполнить...
drakula1305513.09.2022 14:54 -
Сколько будет 16и маленькое число около него 10 в информатике...
McGravii07.04.2022 22:33 -
Python программалау тілі деген не...
annsamoilenko1603.02.2020 12:22