Дано 2х значное число определить является ли цифра десятков четным числом
Дано 2х значное число определить является ли цифра десятков четным числом
Гость
Ответ(ы) на вопрос:
ГостьДля двузначных чисел:
Var A:integer;
Begin
WriteLn('Введи число');
Read(A);
if (A div 10) mod 2 = 0 then Write(A div 10,' - чётная цифра')
else Write(A div 10,' - НЕчётная цифра')
End.
Для любых чисел:
Var A:integer;
Begin
WriteLn('Введи число');
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.
Не нашли ответ?
Похожие вопросы