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

Программка на языке PascalABC

program raf105;

var abc,ab,bc:integer;

begin

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

readln(abc);

ab:= abc mod 100;

bc:= abc div 10;

if ab = bc

 then writeln('Число состоит из схожих цифр')

 else writeln('Число не состоит из схожих цифр');

end.

Объяснение

Для исполнения задачки довольно найти первые 2 числа и заключительные 2 числа если они равны, то число состоит из схожих цифр

abc mod 100 Убирает все сотки из числа.

К примеру было число 123, стало 23.

482 стало 82

abc div 10 Считает сколько в числе целых десяток, но не считает остаток.

Например было число 123, стало 12

482 стало 48

Сравнивание 2 первых и 2 заключительных цифр

253      25 и 53 не одинаковы, означает число не состоит из схожих цифр

121       12 и  21 не одинаковы, значит число не состоит из схожих цифр

111        11 и 11  одинаковы, означает число состоит из схожих цифр