Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
bilpi
24.08.2020 21:11 •
Информатика
1. составьте программу, проверяющую, что введенное число является четным или нечетным 2. составьте программу, проверяющую, что введенное число делится без остатка на 3
Показать ответ
Ответ:
flow789456587
23.07.2020 18:47
//Задача 1
var d:integer;
begin
readln(d);
if d mod 2 =0 then
Writeln('Четное')
else
Writeln('Не четное');
end.
//Задача 2
var d:integer;
begin
readln(d);
if d mod 3 =0 then
Writeln('Делится') else
Writeln('Не делится');
end.
0,0
(0 оценок)
Ответ:
Писинчик
23.07.2020 18:47
1)
var
i: integer;
begin
readln(i);
Writeln('Четное? - ', i mod 2 = 0);
end.
2)
var
i: integer;
begin
read(i);
Writeln('Делится на 3? - ', i mod 3 = 0)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
lolomka109
27.03.2020 07:20
Сравните возможности доступа к почте по протоколу POP3 и IMAP.Укажите достоинства и недостатки каждого из них....
Аккаунт удален
27.03.2021 11:47
Сумма первых трех членов геометрической прогрессии равна 12, а сумма первых шести членов равна 84. Найти третий член прогрессии....
tburda2013
15.02.2021 15:28
Найти производную функции y=15x²+5x-51...
ГолубьДеревенский
15.02.2021 15:28
, нужно Irregular verbs. Find irregular verbs write second and third form (to Bring, to fight, to fly, to dance, to go, to see, to forgive, to meet, to play, to swim, to win,...
AntosciucAndreea
06.03.2020 11:32
Решить показательное уравнение: a) 4х+5 =16 b) 9 · 3х-1+ 3х = 36...
карамелька5555
04.01.2021 22:38
Объект для работы со списком чисел. Конструктор NumberList(); методы addItem (число) – добавление нового числа; свойство length – количество чисел; метод item (номер) – получение...
Bmadjdraw
04.01.2021 22:38
Цифровой микроскоп, поставляемый в образовательные организации, позволяет изучать объекты: 1 в проходящем свете 2 в отраженном свете 3 в инфракрасном свете 4 в ультрафиолетовом...
0LOLOLOSHKA1
11.06.2020 09:31
В лабораторной работе, посвященной тургору у растений, ученикам следует выбрать одно из следующих описаний этого биологического явления. Какое именно? 1 разновидность осмотического...
Valerivaleeva
11.06.2020 09:31
Что поступает в организацию из внешней среды...
noniqname
26.12.2021 22:37
Оптический микроскоп, поставляемый в образовательные организации, позволяет изучать объекты на микропрепаратах: 1 в проходящем свете 2 в отраженном свете 3 в инфракрасном свете...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var d:integer;
begin
readln(d);
if d mod 2 =0 then
Writeln('Четное')
else
Writeln('Не четное');
end.
//Задача 2
var d:integer;
begin
readln(d);
if d mod 3 =0 then
Writeln('Делится') else
Writeln('Не делится');
end.
var
i: integer;
begin
readln(i);
Writeln('Четное? - ', i mod 2 = 0);
end.
2)
var
i: integer;
begin
read(i);
Writeln('Делится на 3? - ', i mod 3 = 0)
end.