Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Катюха123Печенька
16.03.2023 21:42 •
Информатика
Составить программу определения, заданное число а делится на 2,3 или 5. определить на которое делится
Показать ответ
Ответ:
Kuса
02.10.2020 01:39
Program pr;
Var
a:integer;
begin
writeln('Введите число');
readln(a);
if a mod 2=0 then writeln('Делится на 2');
if a mod 3=0 then writeln('Делится на 3');
if a mod 5=0 then writeln('Делится на 5');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Ксюшалебедева
01.02.2021 13:02
РЕШАЕТСЯ ОЦЕНКА ЗА ЧЕТВЕРТЬ! 4 ИЛИ 5! Некоторый исполнитель может выполнять над целыми числами кроме операций сложения, вычитания, умножения и деления ещё две операции: с операции...
Meryem98
07.07.2021 20:29
Как можно перенести отобранную информацию на другое место...
nataliyapotehi
11.01.2023 01:58
Під час змагань на іподромі Жокей на коні долає ді лянку дистанції від 1-го до 26-го стовпчика за 1 хв. З якою швидкістю біжить кінь, якщо відстань між двома сусідніми стовпчиками...
Edam
15.07.2021 07:52
Перевод систем счисления....
Yerkosyaorynbekova
19.08.2022 17:14
Какой минимальный объем памяти в кбайт нужно иметь на диске чтобы можно было сохранить 25 фотографий для презентации размером 512 на 128 пикселей или пикселов каждая при условии...
SofiaSendekaeva
09.11.2021 19:55
По заданным IP-адресу узла сети и маске определите адрес сети: IP-адрес: 145.92.137.88 Маска: 255.255.240.0...
makl192
18.04.2021 09:23
Для узла с IP-адресом 193.138.70.47 адрес сети равен 193.138.64.0. Найдите наибольшее возможное количество единиц в двоичной записи маски подсети. При подсчете помните про «правило...
улгкармцрваейьоц
28.02.2022 08:38
Укажите расширение файла disk.dat: 1.disk 2.dat 3.нет расширения 4.disk.doc Хранение информации – это: 1. передача информации от одного объекта другому по каналу связи 2.накопление...
катяkfrr
10.01.2023 18:19
Дан одномерный массив. Запиши верный ответ.−17200−2513Значение элемента массива — −17.Индекс элемента массива — ...
verahohlova
14.06.2022 01:14
Напиши значение змінної S, которого она набудет после выполнения таких операторов: 1) s:=0; for i:=10 downto 6 do s:=s+1; 2)s:=0; for i:=8 to 3 do s:=s+1; 3)s:=1; for i:=2 downto...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
a:integer;
begin
writeln('Введите число');
readln(a);
if a mod 2=0 then writeln('Делится на 2');
if a mod 3=0 then writeln('Делится на 3');
if a mod 5=0 then writeln('Делится на 5');
end.