1. Информатика
  2. Клавиатурой вводится число

Клавиатурой вводится число вывести на экран четное оно или нет

ома7 ома7    1   11.07.2019 02:30    0

Ответы
valeriafds valeriafds  03.10.2020 00:49
Var n:integer;
begin
readln(n);
if(n mod 2 = 0) then
writeln('Chetnoe')
else writeln('nechetnoe');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
avorob avorob  25.07.2019 00:00
1) вводится три числа. найти среднее арифметическое и вывести его. 2) вводится три числа. найти сумму четных чисел. 3) вводится три числа, найти среднее арифметическое число максимального,...
tyupina2018 tyupina2018  25.07.2019 00:00
Как называется договор между автором и пользователем, который даёт пользователю право использовать программу и определяет условия этого использования?...
elkaE elkaE  25.07.2019 00:00
Для какого из имён ложно высказывание: (третья буква гласная) или не (последняя буква гласная)? 1) елена 2) татьяна 3) максим 4) станислав...
MariKharlova MariKharlova  25.07.2019 00:00
Для какого из имён ложно высказывание: (третья буква гласная) или не (последняя буква гласная)? 1) елена 2) татьяна 3) максим 4) станислав...
Selrr Selrr  28.06.2019 07:30
Блок-схема признака делимости числа на 3...
Zod2141 Zod2141  28.06.2019 07:30
Найдите ошибки в программе: programm 101 { эта программа печатает число недель в году { var s; integer; begon s: =56 write(в году s недель); end...
vitalik153fb vitalik153fb  28.06.2019 07:30
Определите информационный объём графического изображения размером 256*365 пикселей , глубина кодирования 16 бит...
korolinkot korolinkot  28.06.2019 07:30
Как вставить музыку в macromedia flash 8...
castlecrashers castlecrashers  28.06.2019 07:30
Втерминологии сетей tcp/ip маской подсети называется 32-разрядное двоичное число, определяющее, какие именно разряды являются общими для всей подсети – в этих разрядах маски стоит...
666555y67767676 666555y67767676  28.06.2019 07:30
Определить название какого растения ложное? 1. вафельное дерево. 2. колбасное дерево. 3. конфетное дерево....

Популярные вопросы