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

1

Ответы и объяснения

2013-12-10T19:20:15+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
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.

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