Задание:
Среди всех натуральных четырехзначных чисел подсчитать количество таких, сумма квадратов цифр, которых кратна двум или трем. Ответ дайте целымчислом
Решение:
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.
Знаете другой ответ?