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

beka98888 beka98888    3   24.05.2019 19:20    3

Ответы
Андрей201711 Андрей201711  01.10.2020 10:58
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика