Информатика

Вара

11 марта, 04:20

Program Dvch;

var N:integer;

begin

writeln ('Введите число N') ;

readln (N) ;

If (N>9) and (N<100) then writeln ('число ', n:2,' является двухзначным')

else writeln ('число ', n:2,' не является двухзначным') ;

If N mod 2=0 then writeln ('число ', n:2,' является четным')

else writeln ('число ', n:2,' не является четным') ;

end.