Question

Задача: Дано целое число, найти произведение цифр кратных 3, но не кратных 9​

Answer 1

program vnec997;

var proizvedenie, x, a: integer;

begin

writeln('Дано целое число, найти произведение цифр кратных 3, но не кратных 9');

writeln;

readln(x);

proizvedenie := 1;

while (x > 0) do

begin

 a := x mod 10;

 if ((a mod 3 = 0) and (a mod 9 <> 0)) then proizvedenie := proizvedenie * a;

 x := x div 10;

end;

writeln('Произведение цифр кратных 3, но не кратных 9 равно ', proizvedenie);

readln;

end.

Answer 2

//с++

#include <iostream>

#include <cmath>

signed main() {

int N, prod = 1;

std::cin >> N;

N = abs(N);

while (N > 0) {

 if (N % 10 % 3 == 0 && N % 10 % 9 != 0)

  prod *= N % 10;

 N /= 10;

}

std::cout << prod;

return 0;

}