Вот пример кода на Pascal, который проверяет, содержит ли число ровно три одинаковые цифры:
program ThreeIdenticalDigits; var number, digit, count: Integer; hasThreeIdenticalDigits: Boolean; begin hasThreeIdenticalDigits := False; count := 0; write('Введите число: '); readln(number); repeat digit := number mod 10; number := number div 10; count := 1; while number > 0 do begin if digit = number mod 10 then count := count + 1; number := number div 10; end; if count = 3 then begin hasThreeIdenticalDigits := True; break; end; until number = 0; if hasThreeIdenticalDigits then writeln('В числе есть ровно три одинаковые цифры.') else writeln('В числе нет ровно трех одинаковых цифр.'); end.
Вот пример кода на Pascal, который проверяет, содержит ли число ровно три одинаковые цифры:
program ThreeIdenticalDigits;var
number, digit, count: Integer;
hasThreeIdenticalDigits: Boolean;
begin
hasThreeIdenticalDigits := False;
count := 0;
write('Введите число: ');
readln(number);
repeat
digit := number mod 10;
number := number div 10;
count := 1;
while number > 0 do
begin
if digit = number mod 10 then
count := count + 1;
number := number div 10;
end;
if count = 3 then
begin
hasThreeIdenticalDigits := True;
break;
end;
until number = 0;
if hasThreeIdenticalDigits then
writeln('В числе есть ровно три одинаковые цифры.')
else
writeln('В числе нет ровно трех одинаковых цифр.');
end.