1)с клавиатуры вводится произвольное число n , с деления div или mod определите , является ли оно двухзначным. 2)с клавиатуры вводится четырехзначное число x , определите является ли данное число палиндромом.
1) program n_1; var n: integer; begin readln (n); if n div 100 = 0 then writeln ('Число двузначное') else writeln ('Число не является двузначным') end.
var n: integer;
begin
readln (n);
if n div 100 = 0 then
writeln ('Число двузначное') else writeln ('Число не является двузначным')
end.