Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
DaryaGoldman1812
16.07.2021 09:28 •
Информатика
Дано целое число a, значение которого вводится с клавиатуры. написать программу, которая выводит на экран true , если a не кратно трем и оканчивается нулем false в противном случае.
Показать ответ
Ответ:
Darkness171
02.10.2020 22:37
Var a:integer;
begin
readln(a);
if ((a mod 3 <>0) and (a mod 10 = 0) and (a div 10>0)) or (a=0) then
writeln ('true')
else writeln ('false');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
katehell11
02.05.2020 02:16
Записать алгоритм решения в виде блок-схемы и псевдокода. даны числа а и b. если а b вывести их сумму, иначе вывести их разность....
inomgafur
14.11.2020 13:07
1. вычислить значения функции y = 7х2 – 2х для х от -2 до 2 сшагом 0.4.это всё в паскале...
kamikot
30.06.2022 13:06
Какие знания должны быть у администратора сети в такой области, как информационная безопасность...
rsharapov
19.08.2021 03:20
Массивы1) в таблице ves хранятся данные о весе в килограммах по группе учащихся спортивной школы(ves[1] – вес первого учащегося, ves[2] – вес второго учащегося и т. определите, что...
brll1bellrf43
26.12.2020 20:47
5. В кодировке UTF-16 каждый символ кодируется 16 битами. Влад написал текст (в нём нет лишних пробелов): «Мята, тыква, огурец, артишок, патиссон, картофель — овощи». Ученик вычеркнул...
Bakc1
17.01.2023 07:47
Скласти таблицю істинності для логічного виразу: a or not a and b...
yourdream1806
04.04.2021 22:13
5.11. какова скорость передачи в локальной сети, если 10 гб за 17 секунд?...
Паштет312
28.07.2020 07:58
18 - Электронные таблицы Calc (функции) 1. Как называется функция Calc, которая вычисляет сумму значений переданных ей ячеек и диапазонов?2. Какое значение появится в ячейке С3 при...
обожеэтовкдья
06.06.2021 02:23
сопротивление резистора 3 ом при этом мощность тока в резисторе равна 27вт определить силу тока в резисторе...
1231234564561
15.04.2023 14:09
Река Обь протикает по территории...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a);
if ((a mod 3 <>0) and (a mod 10 = 0) and (a div 10>0)) or (a=0) then
writeln ('true')
else writeln ('false');
end.