Среди всех натуральных...

Тема в разделе "Информатика", создана пользователем asoke, 5 апр 2010.

  1. asoke

    asoke New Member

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

    Bimber New Member

    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.
     

Поделиться этой страницей

Наша группа