Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
444477
17.05.2021 04:48 •
Информатика
Напишите программу, которая запрашивает пять натуральных чисел и выводит 1, если это число нечётное и 0 -- если число чётное.
Показать ответ
Ответ:
GLEBfy
07.10.2020 14:27
Var a,i :integer;
begin
i:=0;
repeat
i:=i+1
read(a);
if a mod 2 =1 then
write(1) else write(0);
until (I<5);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
aleksejsmolyan
20.05.2022 04:15
Три понедельника некоторого месяца пришлись на нечетные даты. какой день недели был двадцатого числа этого месяца, если это не четверг? 1) суббота 2) вторник 3) среда 4) четверг...
KriSha11
20.05.2022 04:15
Написать код на языке программирования c или с++. дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 строчных букв; между соседними словами...
Sheri1
05.06.2020 04:30
Олимпиадные для проведения школьного этапа всероссийской олимпиады школьниковпо информатикев 2019/2020 учебном году9 – 11 класспродолжительность олимпиады - 3 часа 1. «зарплата»...
liyakhakimova
28.03.2023 19:00
кто шарит в Паскаль. Реализовать работу процедур:1. Составить функцию, возвращающую значение True, если кол-во положит. чисел в текстовом файле больше кол-ва отрицательных,...
qrfeq16
15.02.2020 06:47
Как в информатике называются знания, получаемые человеком от разных источников?...
hyrshkananastasiya
09.02.2022 16:57
поток данных заканчивается вводом числа 0, напишите программу которая находит количество чисел в потоке оканчивающихся на 5. В ПИТОНЕ...
Антон1700
14.03.2023 17:54
Укажіть загальну формулу вищого оксида елемента під номером 16...
kekmanchik
10.03.2023 23:36
Синтаксические нормы! Установите соответствия между предложениями и допущенными в них грамматическими ошибками ! А) те , кто настойчиво стремятся к своей цели , достоин уважения...
sapunovegor22
10.03.2023 23:36
Определить годовую амплитуду колебаний температур для города Лондона, если среднемесячная температура января равна 0 гр., а июля +16гр....
Еленка871
10.03.2023 23:36
квадрат вписан в равнобедренный прямоугольный треугольник так что две его вершины лежат на гипотенузе, а 2 другие - на катетах. сторона квадрата равна 6 см. найдите гипотенузу...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
i:=0;
repeat
i:=i+1
read(a);
if a mod 2 =1 then
write(1) else write(0);
until (I<5);
end.