Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
JetMinegrifer
22.05.2021 09:46 •
Информатика
Решить в паскале : дано двузначное число, определить : а) кратно ли 3 сумма его цифр; б) кратно ли сумма его цифр числу a
Ответ:
Djessika24
25.08.2020 23:56
Var a, c: integer;
begin
read(c, a);
if ((c mod 10 + c div 10) mod 3 = 0)
writeln('кратно 3');
else
writeln('не кратно 3');
if ((c mod 10 + c div 10) mod a = 0)
writeln('кратно ', a);
else
writeln('не кратно ', a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Tesckep
31.10.2021 14:43
Доступ к файлу bel.html находящемуся на сервере net.com, осуществляется по протоколу http. фрагменты адреса файла закодированы буквами от а до ж. запишите последовательность...
15082
31.10.2021 14:43
Световое табло состоит из цветных индикаторов. каждый индикатор может окрашиваться в четыре цвета: зелёный, черный, желтый и красный. какое наименьшее количество лампочек должно...
Tanya22rus
31.10.2021 14:43
Непрерывным называют сигнал: а) принемающий конечное число определенных значений б)непрерывное изменяющийся во времени в) несущий текстовую информацию г) несущий какую-либо...
marulina
02.09.2022 21:41
Иван набирал текст на компьютере вдруг все буквы у него стали вводиться прописными что произашло? сломался комп? сбой в текстовом ред случайно был зафиксирован режим ввода заглавных...
Trap00ra
18.01.2020 21:22
Некоторой стране автомобильный номер состоит из 5 символов. в качестве символов применяют 28 различных букв и десятичные цифры в любом порядке. каждый такой номер в компьютерной...
1232957
26.02.2020 12:36
Чему равно значение логического выражения (1v1) & (1v0)? А)1; Б)0; В) 10; Г) 2....
LiiiiiiV
11.03.2020 19:05
Сравните силу тяжести действующую на космический аппарат массой 1600 кг на Венере и действующую на космический аппарат массой 10 т на Луне. Ускорение свободного падения на Луне...
LJкрасотка2007
11.03.2020 19:05
4. Найдите значение выражения. а) –282 (-639 -213) : 47), б) –266 (619) (-14),в) (72 – 36 -(-8) — 24); (-8); г) – 420 -14 – 7) - 3 – 7,д) 340 – 72 (-7 + 3): -6), e) — 405 (36...
megamerezhniko
20.06.2021 13:16
АЛГЕБРА Запишите формулу представленного графика функции. Нажмите на изображение чтобы рассмотреть его. (ответ запишите с использованием английской раскладки шрифта, для увеличения...
aumchik
30.06.2021 17:55
Часть текста (вступление, основная часть, заключение), в которой находится предложение, выражающее основную мысль:...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
read(c, a);
if ((c mod 10 + c div 10) mod 3 = 0)
writeln('кратно 3');
else
writeln('не кратно 3');
if ((c mod 10 + c div 10) mod a = 0)
writeln('кратно ', a);
else
writeln('не кратно ', a);
end.