miirko777
22.05.2022 10:18

Дано целое трехзначное число .определить все ли цифры в нем нечетны .паскаль

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Aneenanto
09.10.2020 21:20

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.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота