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.

Answer 2

программный конечно. хоть язык не уточнялся, но писала на паскале, могу на руби если надо