Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
TigerTanya
29.05.2020 02:51 •
Информатика
Ввести число в диапазоне от 10 до 99. определить: а) значность числа; б) четность числа.
Показать ответ
Ответ:
KIRILL1231321312
03.10.2020 23:23
Var
a: integer;
begin
a := 0;
writeln('enter the value: ');
read(a);
if a < 0 then
write('negative')
else
write('positive');
if a mod 2 = 0 then
write(' even')
else
write(' odd');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Eva2772
31.12.2022 00:36
Изобразите в декартовой системе координат область, в которой и только в которой истинно следующее логическое выражение: (у ≥ -1) и (у ≤ 1) и ((х^2 + у^2) ≤ 4)...
arsenfedorko
29.03.2020 15:44
Задание 1 (В тетради) ответьте на вопросы.1.Что такое анимация? 2. Сколько видов анимационных эффектов существуют?3. Перечислите виды анимационных эффектов. Задание 2...
vlad200513
18.08.2022 17:47
ОТДАЮ ВСЕ ЧТО У МЕНЯ ЕСТЬ, ТОЛЬКО Номер 4 и номер 5...
steep6
04.04.2023 04:20
Сколько строк напечатает программа:—var k, i: integer;beginfor k:=8 downto 1 dowriteln( Мне нравится язык программирования Pascal );end.а) 8б) 7B) 1г) 0...
sisy
10.02.2023 06:10
Вопросы по сказке О Мёртвой царевне и о семи богатырях: Понравилась ли вам царевна? Как объяснить но : Но царевна молодая, Тихомолком расцвета я, Между тем росла, росла,...
Vladochka14
10.12.2022 15:54
Родители заказали тебе в Европу книгу на английском языке она стоит четыре с половиной 4,61 евро за доставку книги по России необходимо оплатить ещё 400 руб курс евро 81,41...
dasha5282
10.12.2022 15:54
My hero Listen to the recording and choose the correct option. The audio: Which title best describes the recording? 1) Why do sportsmen make the world better 2)School project...
Ника1511111
09.09.2021 09:10
решить 6/а умножить b/10...
saralis
31.10.2021 22:15
Расположи записи в следующем порядке: одна молекула водорода, один атом водорода, две молекулы водорода, два атома водорода. Запиши ответ в виде последовательности цифр,...
Wely
31.10.2021 22:15
В чем очновной смысл произведения Анны Игнатовой Джинн Сева ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: integer;
begin
a := 0;
writeln('enter the value: ');
read(a);
if a < 0 then
write('negative')
else
write('positive');
if a mod 2 = 0 then
write(' even')
else
write(' odd');
end.