Question

написать на Pascal программу.
Определить ,являеться ли число N четным двузначным числом

Answer 1

program NekitZor;
 var N:integer;
begin
write('Введите число N:');
readln(N);
if (N mod 2 = 0)and (N div 100 < 1) and (N>9) then write('Данное число двузначное') else if (N div 100 <1) and (N>9) then write ('Данное число не четное двузначное')
end.