Вопрос от посетителя
определить является ли число N чётным двузначным числом в паскале
Отвечает Илюха:
program is_ev_2d;
var n: integer;
begin
write(‘Введите число: ‘);
readln(n);
if (n mod 2 = 0) and (n > 9) and (n < 100) then
writeln(n, ‘ чётное двузначное’)
else
writeln(n, ‘ не чётное двузначное’)
end.