Плачу много ! дано натуральное четырехзначное число n. a) проверить есть ли в записи числа три одинаковые цифры.

155

289

Посмотреть ответы 2

Ответы на вопрос:

theodoorka

Информатика

4,7(47 оценок)

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 10< min then min: =n mod 10; if n mod 10> max 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