Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
канна
18.05.2020 09:25 •
Информатика
Напишите программу, которая запрашивает пять натуральных чисел и выводит 1, если это число нечётное и 0 -- если число чётное.
Показать ответ
Ответ:
gnastasiya5
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 оценок)
Популярные вопросы: Информатика
71121
08.11.2022 15:12
Установить соответствие....
top76543211vfjo
14.10.2022 12:00
Написать программу на пайтоне(см. подробности) Рассматривается множество целых чисел, принадлежащих числовому отрезку [4197; 9182], которые делятся на 5 и не делятся на 6, 10, 13,...
SemMandarenova
08.06.2021 00:41
Создать матрицу 3х4, заполнить ее числами 0 и 1 так, чтобы в одной строке была ровно олна еденица, и вывести на экран...
чек14
08.06.2021 00:41
Создать матрицу, состоящую из нулей, за исключением элементов, которые находятся в крайних столбцах и строках - они равны единице c#...
Gelua2128
09.07.2022 01:31
Информатика, БэйсикСоставить программу:1)С клавиатуры вводится словоЭкран полностью очищаетсяСлово последовательно собирается по буквам в какой-либо строке, начиная с первой позиции....
Димончик111111
01.11.2021 23:47
Дано выражение ¬ (¬ а ∨ b), где а и b - логические величины. При выполнении какого из следующих логических высказываний данное выражение будет истинным? 1) а и b имеют значение ЛОЖЬ...
Mushvi
11.03.2023 09:03
7 Контрольные во Что понимают под классом объектов? Свойствами объектов? 7.2 Типы связей один-к-одному и один-ко-многим : как они реализуются в реляционных базах данных? 7.3 В каких...
hasmikaydinyan
13.04.2021 22:20
Оператор вывода write (8,13,21,200); Результат...
isanatoliy25199
27.11.2020 03:50
Доступ к файлу 1.png, находящемуся на сервере ѕеrver.de, осуществляется по протоколу http. В таблице фрагменты адреса файла закодированы цифрами от 1 до 7. Запиши последовательность...
Roman22020
29.03.2023 06:32
В каком случае информация о массе человека будет бытовой в каком технической?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.