Pascal. Дано чотирицифрове натуральне число. Чи вірно, що воно містить рівно три однакові цифри? ДОПОМОЖІТЬ СРОЧНОО

Ответ:

program Main;

var

 n: integer;

 a, b, c, d: integer;  // розбиваємо число на цифри

 count: array[0..9] of integer;  // масив для збереження кількості разів, як цифра зустрічається у числі

begin

 writeln('Введіть чотирицифрове натуральне число:');

 readln(n);

 a := n div 1000;  // розбиваємо число на цифри

 b := (n div 100) mod 10;

 c := (n div 10) mod 10;

 d := n mod 10;

 count[a] := count[a] + 1;  // зберігаємо кількість разів, як цифра зустрічається у числі

 count[b] := count[b] + 1;

 count[c] := count[c] + 1;

 count[d] := count[d] + 1;

 // Перевіряємо, чи є хоча б три однакових цифри

 if (count[a] = 3) or (count[b] = 3) or (count[c] = 3) or (count[d] = 3) then

 begin

   writeln('Число містить рівно три однакові цифри');

 end

 else

 begin

   writeln('Число не містить рівно три однакові цифри');

 end;

end.