Question

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

Answer 1

var a: integer;

begin

readln(a);

if a<0 then a:=(-1)*a;

if (a mod 2<>0) and (a>9) and (a<100) then

write(a,' - нечетное двузначное число') else

write(a,' - не является нечетным двузначным числом');

end.