Дано целое трехзначное число .определить все ли цифры в нем нечетны .паскаль
Irakli2007
1
05.10.2019 08:51
0
Другие вопросы по теме Информатика
Вова3371346
26.11.2020 14:13
kamilatoktorbel
26.11.2020 14:13
emilking
07.06.2019 23:20
artslk
16.06.2019 18:40
svetasvetlana7
16.06.2019 18:30
vladimirkotov71
01.09.2019 21:30
dashademidkinaozz914
11.12.2020 08:32
NekoChan625
11.12.2020 08:29
ADellera
02.02.2021 14:17
Популярные вопросы
- Периметр треугольника ABC равен 28 см. Сторона ВС в 2 раза больше стороны...
1 - Одна труба наполняет басейн за 6 ч, а другая- за 4 ч. За сколько часов...
2 - Пожіть будь-ласка написати чим мені сподоьався твір віктор близнець звук...
3 - Что будет если перпендикулярно луч одного мощного лазера направить на...
1 - Массовая доля кальция в карбонате кальция (CaCO3) равна: 1) 28,16%; 2)...
2 - 5 непонятных слов по Роману Дубровский...
3 - В прямоугольном треугольнике АВС к гипотенузе проведена высота ВН,АН=5,СН=40....
3 - найти производные первого порядка данных функций...
1 - Задаване 5. Прочитайте тест. Почеркавате в ателеных предложения однородные...
2 - Що мені сподобалось у творі Віктор Близнець Звук павутинки...
3
var a, b, c , d : integer;
begin
read(a);
b := a mod 10;
c := a div 10 mod 10;
d := a div 100;
if (b mod 2 = 1) and (c mod 2 = 1) and (d mod 2 = 1) then
writeln('Нечетны')
else
writeln('Есть четные');
end.