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.

Answer 2

Вот пример программы на Pascal, которая определяет, состоит ли введенное число из одинаковых цифр:

arduinoCopy code
program SameDigits;

var
  num, digit, prevDigit: Integer;
  isSame: Boolean;

begin
  // Считываем число
  writeln('Введите число:');
  readln(num);
  
  // Инициализируем переменные
  prevDigit := num mod 10;
  isSame := True;
  
  // Проверяем каждую цифру числа
  while num > 0 do
  begin
    digit := num mod 10;
    num := num div 10;
    
    // Если цифра не совпадает с предыдущей, то число не состоит из одинаковых цифр
    if digit <> prevDigit then
    begin
      isSame := False;
      break;
    end;
    
    prevDigit := digit;
  end;
  
  // Выводим результат
  if isSame then
    writeln('Число состоит из одинаковых цифр')
  else
    writeln('Число не состоит из одинаковых цифр');
end.

Программа сначала считывает число из консоли, затем проверяет каждую цифру числа с предыдущей. Если цифры не совпадают, то программа устанавливает флаг isSame в значение False и выходит из цикла. После проверки всех цифр программа выводит сообщение в консоль о том, состоит ли число из одинаковых цифр или нет.