Привет! Я решил написать для тебя программу на Pascal, которая будет проверять, являются ли все цифры трехзначного числа одинаковыми. Затем она выведет ответ на экран.pascal
program CheckDigits;
var
number⁚ integer;
digit1, digit2, digit3⁚ integer;
allDigitsEqual⁚ boolean;
begin
writeln(‘Введите трехзначное число⁚’);
readln(number);
digit1 ⁚ number div 100;
digit2 ⁚ (number div 10) mod 10;
digit3 ⁚ number mod 10;
allDigitsEqual ⁚ (digit1 digit2) and (digit2 digit3);
writeln(‘Верно ли, что все цифры введенного числа одинаковы?’);
if allDigitsEqual then
writeln(‘да’)
else
writeln(‘нет’);
end.
Как только программу выполнишь, она попросит тебя ввести трехзначное число. После ввода числа, программа разделит его на отдельные цифры и сверит их значения. Если все цифры равны, то она запишет в переменную `allDigitsEqual` значение `True`. Затем она выведет ответ на экран ⎻ ″да″ или ″нет″, в зависимости от значения переменной `allDigitsEqual`.
Надеюсь, моя программа поможет тебе проверить, все ли цифры введенного трехзначного числа одинаковы!