Question

Напишите программу, которая получает с клавиатуры трёхзначное число и записывает в логическую переменную значение «да» (True), если это все его цифры одинаковы. После этого на экран выводится ответ на вопрос: «Верно ли, что все цифры введённого числа одинаковы?». Паскаль!) С логической переменной

Answer 1

program znanija;

var

answer: boolean;

a,b,c,d: integer;

begin

readln(a);

b := a mod 10;

c := a div 100;

d := a div 10 mod 10;

if (b=c) and (c=d) then

answer := true;

if answer = true then

writeln ('Да, верно')

else

writeln ('Нет, не верно');

end.

Answer 2

var

   a : integer;

   d : boolean;

   

begin

   write('Введите трехзначное число -- ');

   readln(a);

   write('Верно ли, что все цифры введённого числа одинаковы? -- ');

   if a mod 10 and a div 10 mod 10 = a div 100 then d := true else d := false;

   if d then writeln('ДА') else writeln('НЕТ');

end.

Answer 3

В Pascal (или Delphi) можно написать программу, которая выполняет данную задачу. Вот пример кода:

pascalCopy code
program CheckIfDigitsAreEqual;

var
  userInput: Integer;
  areDigitsEqual: Boolean;

begin
  writeln('Введите трёхзначное число:');
  readln(userInput);

  // Проверяем, являются ли все цифры числа одинаковыми
  areDigitsEqual := (userInput mod 10 = userInput div 100) and (userInput div 100 = (userInput mod 100) div 10);

  writeln('Верно ли, что все цифры введённого числа одинаковы?');
  if areDigitsEqual then
    writeln('Да')
  else
    writeln('Нет');

  readln;
end.

Программа получает с клавиатуры трёхзначное число и записывает результат проверки в логическую переменную areDigitsEqual. Затем она выводит на экран ответ на вопрос: "Верно ли, что все цифры введённого числа одинаковы?". Если все цифры числа одинаковы, то на экране будет выведено "Да", в противном случае - "Нет".