Разработайте программу, которая принимает с клавиатуры трехзначное число и присваивает логической переменной значение

Предмет вопроса: Программа на языке Паскаль для проверки одинаковости цифр в трехзначном числе.

Объяснение: Для решения этой задачи на языке Паскаль, мы можем использовать целочисленные операции для разбиения трехзначного числа на отдельные цифры и затем проверить их одинаковость. Вот подробное пошаговое решение:

1. Объявите переменную `num` типа `integer`, которая будет хранить трехзначное число.
2. Запросите у пользователя ввод трехзначного числа и сохраните его в `num`.
3. Объявите логическую переменную `allDigitsSame` типа `boolean` и присвойте ей исходное значение `true`.
4. Разбейте трехзначное число на отдельные цифры, используя деление и остаток от деления на 10. Присвойте каждую цифру отдельной переменной `digit1`, `digit2` и `digit3`.
5. Проверьте условие, что `digit1` равно `digit2` и `digit2` равно `digit3`. Если хотя бы одно из условий не выполняется, установите значение `allDigitsSame` в `false`.
6. Выведите на экран "Являются ли все цифры введенного числа одинаковыми?". Если `allDigitsSame` равно `true`, выведите "Да", иначе выведите "Нет".

Вот пример кода на языке Паскаль:

pascal

program CheckAllDigitsSame;



var

  num, digit1, digit2, digit3: integer;

  allDigitsSame: boolean;



begin

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

  readln(num);



  allDigitsSame := true;

  digit1 := num div 100;  // Получение первой цифры

  digit2 := (num div 10) mod 10;  // Получение второй цифры

  digit3 := num mod 10;  // Получение третьей цифры



  if (digit1 <> digit2) or (digit2 <> digit3) then

    allDigitsSame := false;



  writeln("Являются ли все цифры введенного числа одинаковыми?");

  if allDigitsSame then

    writeln("Да")

  else

    writeln("Нет");

end.

Совет: При решении этой задачи помните, что деление нацело (`div`) даёт целую часть от деления, а операция остаток от деления (`mod`) даёт остаток от деления.

Задача для проверки: Напишите программу на языке Паскаль, которая проверяет одинаковость цифр в четырехзначном числе.