Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
fkbithxtvg
05.07.2022 18:17 •
Информатика
Напишите программу: дается целое число n,напишите программу,которая проверяет(выявляет) если число n четное и если оно делится на 3 без остатка. прога на базе paskal и решается через оператор if.
Показать ответ
Ответ:
matfeys
03.10.2020 06:07
Var a,i:integer
begin
read(a)
if a mod 2 = 0 then writeln('Число чётное')
if a mod 3 = 0 then writeln('Число делится на 3')
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
liliyazaleeva12
13.06.2021 18:01
Дано натуральное число n. определить, является ли оно простым . составить программу на языке программирования паскаль: подсчитать колтчество букв а в заданном тексте....
Skvaler
08.07.2020 18:34
Если ни один слон не может летать, и все птицы летают,...
ольга2224
05.07.2020 06:32
Дано число N ( 0) и указатели P1 и P2 на начало и конец непустой очереди. Извлечь из очереди N начальных элементов и вывести их значения (если очередь содержит менее...
dashakeks2
15.09.2020 17:22
, если можно с объяснением...
Сирунс
28.09.2022 23:40
Складiть блок-схему алгоритму для розв язування задачi: якщо цiна книжки не перевищуэ n гривень, купити цю книжку i сувенiр, в iншому випадку купити тiльки книжку...
максим5695
15.10.2022 00:28
Определите значение переменной s после выполнения следующего фрагмента программы при указанных значениях а: p = aS = 0while p 0:S = s+p 6 10p=p// 10При а = 23кто...
Кристина15551
16.10.2022 11:26
Движение робота по линии. Урок 1 Изучи предложенный программный код и расставь действия алгоритма в правильном порядке.определение цвета поляизмерение градуса поворота...
timursharipov2
16.01.2023 09:32
За 4 минуты 16 секунд были переданы 4 файла по 256 кб. чему равна скорость передачи данных через adsl-соединение? значение скорости записать в кбит/с....
kartoshka212
16.01.2023 09:32
Напиши программу, которая выводит сумму n чисел, введенных пользователем. число n должно так же определяться пользователем. язык с#...
angelina2003po
30.10.2021 16:12
Нужно составить 10 предложений с модульными глаголами ( и желательно с переводом на )...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
read(a)
if a mod 2 = 0 then writeln('Число чётное')
if a mod 3 = 0 then writeln('Число делится на 3')
end.