Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
joker1100
14.05.2023 18:25 •
Информатика
Дано трехзначное число составить программу которая определят кратно ли 3 произведение его цифр ( на языке паскаль)
Показать ответ
Ответ:
stas2491
10.08.2020 07:54
Var
a, b : integer;
begin
b:=1;
write('a?');
readln(a);
a := abs(a);
while a > 0 do
begin
b := b * a mod 10;
a := a div 10;
end;
if b mod 3 =0 then writeln('да')
else writeln('нет');
end.
0,0
(0 оценок)
Ответ:
vik20051
10.08.2020 07:54
Как-то так (фотография)
(работает и с отрицательными числами)
0,0
(0 оценок)
Популярные вопросы: Информатика
Sonyavishnya
26.02.2022 16:40
1) почему именно египтяне первые начали использовать папирус для письма? 2) что делали древние египтяне когда папирус засыхал и трескался? 3)почему в средние века письменнык...
lionkeepo
26.02.2022 16:40
Используя датчик случайных чисел заполнить массив из 20 элементов неповторяющимися числами...
erdanabekok
10.09.2021 04:41
При обработке массива из нулей и единиц 10100110 был применен следующий алгоритм : если первый элемент массива единица,то переносим её на третью с конца позицию, а если первый...
znmbuzinis
10.09.2021 04:41
Решить в с#. 1) найти число элементов массива, которые больше своих соседей , т.е предшествующего и предыдущего. 2) дано натуральное число, в котором все цифры различны. нужно...
Walker95
29.04.2021 14:45
Дан целочисленный массив из 10 элементов.написать программу ,находящую сумму элементов массива кратных 3 или 5?...
элирка3
10.06.2021 22:43
Сколько разноцветных категорий в программе Scratch? A)20 Б)15 В)10 Г)7...
Лоликус
17.02.2022 18:05
Вопрос 10 У Маши были координаты точек, соединив их, она восстановила рисунок. Какую операцию она провела? Укажите правильный вариант ответа: кодирование числовой информации...
yekatmedwedicz
24.02.2023 18:48
1)какого оператора цикла не существует в паскале? a. if b. while c. for 2)определите значение переменной «a» после выполнения фрагмента программы: a : = 10; b : = 5; if not...
Nemo24
12.08.2021 01:57
Что такое эргономика? Что такое интернет-зависимость?Что такое программа?Какие задачи выполняет операционная система?...
kgrdva
29.02.2020 14:17
Сколько двоичных разрядов потребуется для записи: 1 бита; 5 бит; 16 бит. Так же, объясните как это посчитать) ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a, b : integer;
begin
b:=1;
write('a?');
readln(a);
a := abs(a);
while a > 0 do
begin
b := b * a mod 10;
a := a div 10;
end;
if b mod 3 =0 then writeln('да')
else writeln('нет');
end.
(работает и с отрицательными числами)