profile
Опубликовано 5 лет назад по предмету Информатика от nls29

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

  1. Ответ
    Ответ дан BlackW1nd
    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.
Самые новые вопросы