Среди всех натуральных четырехзначных чисел подсчитать количество таких, сумма квадратов...

Question

Среди всех натуральных четырехзначных чисел подсчитать количество таких, сумма квадратов цифр, которых кратна двум или трем. Ответ дайте целым числом

Answer 1

Var
    i, s, k, n: integer;

begin
    for i := 1000 to 9999 do begin
        n := i;
        s := 0;
        while n > 0 do begin
            s := s + (n mod 10) * (n mod 10);
            n := n div 10;
        end;
        if (s mod 2 = 0) or (s mod 3 = 0) then begin
            k := k + 1;
            writeln(i, ' ', s);
        end;
    end;
    writeln(k);
   
end.

Comments

6216

---

да правильно, но поскольку это информатика, то нужен код

---

какой код?