••• ••• дано натуральное число n (n меньше или равно 9999 выяснить, верно ли, что это число содержит ровно три одинаковые цифры с учетом четырех цифр, как, например, числа 3363, 4844, 0300 и т.п. ( если не трудно, напишите решение, 9 класс )

Не уверен, что в 9 классе проходят массивы, уточни потом, переделаю, если что. program g; uses crt; var nums: array [1..10] of byte;     n: integer; count, i, k, equal, truth:   byte; begin   clrscr;   truth: =0;   writeln('введите число n (меньше или равное 9999).');   repeat   readln(n);   if n> 9999 then writeln('введено неверное число. повторите ввод.');   until n< =9999;   count: =0;   while n> 0 do   begin     inc(count);     nums[count]: =n mod 10;     n: =n div 10;   end;   for i: =1 to count do   begin     equal: =0;       for k: =i+1 to count do     if nums[i]=nums[k] then       inc(equal);     if equal=2 then truth: =1;   end;   if truth=1 then writeln('в числе совпадает три разряда.')     else writeln('в числе совпадает менее/более трёх разрядов.');   readln; end.

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! // программа №1 begin     var mas: =arrrandom(20,-99,99); mas.println;     writeln('сумму  с четным индексом=',mas.where((v,i)-> i mod 2 =0).sum); end. // программа №2 begin     var n: =readinteger('n=');       var mas: =arrrandom(n,-99,99); mas.println;     writeln('элементы < 5');     mas.where(t-> t< 5).println;     end. //программа №3 begin     var n: =readinteger('n=');       var mas: =arrrandom(n,-99,99); mas.println;     write('сумма=');     mas.where(t-> t mod 10 = 3).sum.println;     end.

#include < iostream> using namespace std; void main() {       long a, b, c, result;       cin > > a > > b > > c;       result = (a + b + c) % a;       if (result == 0)       {             cout < < "yes" < < endl;       }       else       {             cout < < "no" < < endl;       } }