ПЛАЧУ МНОГО БАЛЛОВ!!! Дано натуральное четырехзначное число N. a) Проверить есть ли в записи числа три одинаковые цифры.
ПЛАЧУ МНОГО БАЛЛОВ!!!
Дано натуральное четырехзначное число N. a) Проверить есть ли в записи числа три одинаковые цифры.
Ответ(ы) на вопрос:
Гость
var
a: Array [0..9] of Integer;
n, min,max: Integer;
begin
readln(n);
min:=9;
max:=0;
while (n > 0) do begin
inc(a[n mod 10]);
if n mod 10max then max:=n mod 10;
n := n div 10;
end;
for n := 0 to 9 do
if a[n] = 3 then writeln('В числе есть 3 одинаковые',n);
writeln('Максимальная цифра ',max);
writeln('Минимальная цифра ',min);
end.
Тест для числа:
222778999
В числе есть 3 одинаковые 2
В числе есть 3 одинаковые 9
Максимальная цифра 9
Минимальная цифра 2
Не нашли ответ?
Похожие вопросы