Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
maschkuznetsov
25.10.2020 21:56 •
Информатика
Написать программу нахождения частного отделения двух чисел . определить является ли целое число вводное с компьютера чётным.
Показать ответ
Ответ:
JackKalibr
05.07.2020 14:43
Var a,b:integer;
begin
read(a,b);
writeln(a/b);
end.
var a:integer;
begin
readln(a);
writeln(not odd(a));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
maistrenko1
09.05.2022 03:56
ответьте ! 1) назовите технологические проблемы информатизации общества. 2) в чём состоит различие между лицензионными, условно бесплатными и бесплатными программами? 3) примеры...
vladaplakhotya
08.03.2021 23:05
Жаратылыстану пәнінің мұғалімі Диасқа Қазақстанда...
liyaleonteva147котик
05.05.2021 21:16
1. Рассчитайте информационный объем закодированного звука, если записано звучание 34 с речи с частотой дискретизации 45 Гц и глу-биной звука 7 бит. 2. Рассчитайте информационный...
Аккаунт удален
21.04.2023 15:05
Өз аты-жөніңізбен жасыңыз шығатындай код құрыңыз!! Менын атым: Рысдаулет Мухамедали керек...
ArseniiB1
05.04.2022 04:56
Дана целочисленная матрица размера m×n (m, n больше 3). Определить строки матрицы, в которых число 5 встречается 3 и более раз. ПРОГРАММА В ПАСКАЛЕ...
Wulfmax
12.07.2021 11:20
10 равновероятных событий, Вопросы и задания1. Что такое неопределенность знания о результате какого-либо события?Приведите примеры.2. Как с точки зрения содержательного подхода...
KIRAERM
24.10.2021 19:55
Вычислите объём файла в килобайтах если изображение стоит состоит из 580 х 490 точек глубина цвета равна 17 по 3 записать только целое число...
sadovinaviktoriay
27.02.2023 16:18
ДАМ 20-ТКУ Як переробити програму CountInput, щоб вона закінчувала роботу при перевищенні певної суми?...
Виолетта030905
03.06.2022 09:34
Властивості об єктів що використані в програмі Lazarus a) Можна змінюватиb) Встановлюються лише раз, змінювати їх не можна...
Маrprokap
06.02.2023 18:23
Відгадай, яке я загадав число? Хто відгадає, отримає подяку на акк, та ше трішки балів просто так...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
read(a,b);
writeln(a/b);
end.
var a:integer;
begin
readln(a);
writeln(not odd(a));
end.