Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Дано 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.