Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
maxyatkevich
18.06.2021 00:03 •
Информатика
Составить программу, определяющую результат гадания на ромашке - "любит - не любит", взяв за исходное данное кол-во лепестков n. pascal
Показать ответ
Ответ:
LastGirlOnEarth
05.10.2020 20:21
Var
n:integer;
Begin
Write('n = ');ReadLn(n);
if n mod 2 = 0 then WriteLn('Не любит')
else WriteLn('Любит')
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
19283746521
22.02.2021 02:05
Петрик пройшов хх год зі швидкістю 5 км/год, а Катерина – уу год зі швидкістю 4 км/год. Складіть математичну модель і проєкт для визначення, хто з них про-йшов...
steel09090
27.04.2020 22:18
Петя и вася играют в очередную партию в стрелялку.для выполнения очередного им необходимо набрать одинаковое количество патронов. оружейник предлагает им обоймы,...
KatiG
27.04.2020 22:18
Напишите программу нахождение площади треугольника по формуле герона, на паскале...
VovanGh165
27.04.2020 22:18
Один из первых отечественных персональных компьютеров бк-0010 имел оперативную память объёмом 16 кбайт.сколько страниц текста можно бы разместить в памяти этого...
псдрпл
27.04.2020 22:18
Напишите программу нахождения произведения 4 чисел? на паскале...
DetaRUSION
02.02.2023 18:46
Для кодирования нотной записи используется 7 значков -нот.каждая нота кодируется одним и тем же минимально возможным количеством бит.чему равен информационный объем...
ПростоТим5
31.01.2020 21:02
Дана последовательность чисел, продолжите ее 1; 5; 4; 9; *; *; *; *;...
ззвееррекк
12.12.2020 19:20
Рештить дано: i=16 бит,v(частота дискретизации)=3200 раз/с,i=3500кб найти: t...
vovareket
31.08.2022 11:00
Значение выражения 36^8+6^20-12 записали в системе счисления с основанием 6. сколько цифр 5 содержится в этой записи....
annatarasova1991
12.10.2020 05:53
Определить диапазон представления целых чисел со знаком (отводится 2 байта памяти) в формате с фиксированной запятой....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n:integer;
Begin
Write('n = ');ReadLn(n);
if n mod 2 = 0 then WriteLn('Не любит')
else WriteLn('Любит')
End.