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

Ответы (1)

Маддох 12.10.2025 0
Для двузначных чисел:Var A:integer;BeginWriteLn ('Введи число') ;Read (A) ;if (A div 10) mod 2 = 0 then Write (A div 10,' - чётная цифра')else Write (A div 10,' - НЕчётная цифра')End.Для любых чисел:Var A:integer;BeginWriteLn ('Введи число') ;Read (A) ;if ((A div 10) mod 10) mod 2 = 0 then Write ((A div 10) mod 10,' - чётная цифра')else Write ((A div 10) mod 10,' - НЕчётная цифра')End.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ