Question

Напишите программу, которая определяет, верно ли, что введённое число состоит из одинаковых цифр. (ABC pascal)

Answer 1

var number:integer;
    digit:integer;
    res:boolean;
begin
  readln(number);
  digit:=number mod 10;
  number:=number div 10;
  res:=true;
  while number>0 do begin
    if digit<>number mod 10 then begin
      res:=false;
      break;
    end;
    number:=number div 10;
  end;
  if res then writeln('Верно') else writeln('Неверно');
end.