Сделайте, 1. ввести с клавиатуры число. если оно двузначное, на экране должно появиться сообщение «это число двузначное», в остальных случаях появляется сообщение «число не является двузначным». 2. ввести с клавиатуры трехзначное число. если число четное, вывести на экран сообщение «это число четное», в остальных случаях сообщение «число не является четным». 98 !

#1.

var n,i,flag:integer;

begin  

readln (n);

flag:=0;

while n>0 do  

begin

 i:=n mod 10;

 n:=n div 10;

 flag:=flag+1;

end;

if (flag = 2)  

  then writeln ('Это число двузначное')

else  

 writeln ('Число не является двузначным');

end.

#2.

var n:integer;

begin  

readln (n);

if (n mod 2 = 0) then  

writeln ('Это число четное')

else

 writeln ('Число не является четным');

end.