Question

Дано натуральное число.Проверить,является ли число двузначным,и равна ли первая цифра числа второй.

Answer 1

Var x,a,b:integer;
Begin
 write('x='); readln(x);
 if (x div 10)=0 then writeln('Число однозначное.')
  else if (x div 100)=0 then
    begin
     write('Число двухзначное, ');
     a:=x div 10;
     b:=x mod 10;
     if a=b then writeln('и его первая цифра равна второй.')
      else writeln('и его первая цифра не равна второй.');
    end
   else writeln('Это число многозначное.');
End.