Задача: Дано целое число, найти произведение цифр кратных 3, но не кратных 9
restIess:
язык программирования?
Ответы на вопрос
Ответил yaroslavb200110
0
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.
Ответил restIess
0
//с++
#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;
}
Новые вопросы