Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
hoper123
04.03.2022 05:14 •
Информатика
Дано четырёхзначное число определить: кратна ли трём сумма его цифр
Показать ответ
Ответ:
Сергей965
08.10.2020 15:45
Program tz;
var
a,b:integer;
i:byte;
begin
writeln('vvedite 4x znachnoe chislo');
readln(a);
b:=1;
for i:=1 to 4 do begin
b:=b*(a mod 10);
a:=a div 10
end;
if (b mod 4) = 0 then
writeln(b,' Kratno 4')
else
writeln(b,' Ne kratno 4');
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
шоколадказнаний
16.09.2022 06:50
Среди приведённых ниже трёх чисел, записанных в различных системах счисления, найдите максимальное и запишите его в ответе в десятичной системе счисления. В ответе запишите только...
Kisha12345
20.06.2020 13:09
Разложите указываем число 9354и внизу 4 маленький 10есть как написать незнаю...
hdjdjndn
11.04.2023 06:50
В экзаменационном билете три вопроса. Максимальная оценка первого и второго вопросов составляет а третьего – Какое суммарное количество информации несет сообщение о том, что...
пипиша
26.10.2022 10:36
Дана температура в градусах Цельсия. Напишите программу для вычисления соответствующей температуры в градусах Фаренгейта. формула перевода - tf=9/5*tC+32...
dgbimv
30.04.2020 12:25
При создании изображения в графическом редакторе Paint. использовался инструмент. Определите назначение инструмента. * ...
SOSmi
08.05.2022 05:51
Прочитайте утверждения. выберите в выпадающем списке значение для данного логического выражения...
Shkolnik1ZloI
15.04.2021 05:06
Решите кроссворд (это если что информатка)...
varksen
15.04.2021 05:06
решить информатику.. На каком этапе создания книги ей присваивается классификационный индекс: 1) в начале подготовки рукописи; 2) перед публикацией; 3) после опубликования. Назначение...
милана761
21.12.2020 02:00
Придумайте и опишите эт для вычесления общей стоимости покупок в магазине, если известны стоимость 1 еденицы товара (или 1 кг) и количество купленных единиц (описать все формулы...
Player57
21.04.2022 15:14
H2, h2s,c6h6, ba, c3h8o3, cuo, koh, ca, c5h12, ch5n,co2, n2, znco3, o3. выписать отдельно металлы и не металлы, простые и сложные вещества, органические и не органические. 20...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a,b:integer;
i:byte;
begin
writeln('vvedite 4x znachnoe chislo');
readln(a);
b:=1;
for i:=1 to 4 do begin
b:=b*(a mod 10);
a:=a div 10
end;
if (b mod 4) = 0 then
writeln(b,' Kratno 4')
else
writeln(b,' Ne kratno 4');
readln;
end.