Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Roman2321
04.01.2023 22:30 •
Информатика
Ввели число, выясните , делится ли оно нацело на 3?
Ответ:
arslanmax
05.10.2020 17:00
Program n1;
var a: integer;
begin
readln(a);
if a mod 3=0 then write('делится')
else write('не делится');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
мак189
07.06.2021 00:50
Для какого из значений числа Y высказывание будет истинным?(Y 5) ∧ ( ¬ (Y 5) ∨ (Y 2))Выбери правильный вариант ответа 1 2 3 4...
bubles13
09.07.2020 16:03
Андрей может вводить текстовую информацию со скоростью 130 символов в минуту Выясни Сколько времени ему понадобится для того чтобы ввести в память компьютера напечатанный...
maruad2
30.01.2021 22:06
за правильный ответ 1)Выбери верные ответы. Информатизация основных видов деятельности человека: (ответов может быть несколько). бытовая профессиональная учебная системная...
maksim9182
18.03.2022 12:59
Данным инструментом пользуются для того, чтобы стереть маленькие фрагменты. Line Brush Polygon Eraser Pencil С этого инструмента можно нарисовать прямоугольник с закруглёнными...
rayanova81
06.06.2022 03:43
1.Дешифровать сообщение: Бирои имч еыеес витсч арзки танет есарл лпюсп мотоо еипнф кйаои крслт мн 2. Дешифровать сообщение: тиооско нцрпоед иявдттж афэелиа ткокнбв еапанъг...
Пумба132
28.04.2022 03:55
1. Что такое 2D-графика? 2. В чем отличие 2D-графики от 3D-графики ?...
HNLLZ
15.03.2022 23:42
1.Что появится на экране после выполнения программы: c:= 5;write(c);write( c ); * 2.Что выведет на экран программа:a:= 1;write(a);a:= 5;write(a); (в ответе укажите только...
nika12052006
11.07.2022 07:17
Перевести код с Паскаля на Питон var i,n:integer;a:longint; begin read(n); a:=5; for i:=2 to n+1 do Begin write(a, ); a:=a*5; end; end....
davidmarabyan
01.11.2022 12:56
Выбери правильную команду присваивания. Б:=6; S=6; Б=6; S=:6; S:=6;...
korostin2004
20.09.2020 23:42
1. ЗБЕРИ РОЗСИПАНІ БУКВИ І ЗАПИШИ УТВОРЕНІ СЛОВА. АЧОПДВОІД...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a: integer;
begin
readln(a);
if a mod 3=0 then write('делится')
else write('не делится');
end.