Составьте программу проверяющую верно ли утверждение что произведение цифр введенного...

Question

Составьте программу проверяющую верно ли утверждение что произведение цифр введенного вами трехзначного целого числа не делится на сумму 1 и 3 цифр и делится на 3.

Comments

ЯП?

---

в паскале

Answer 1

Ну как - то так, если я верно понял условие

C++

#include

using namespace std;

string s;

main () {

cin >>s;

int a[4];

a[1] = s[0] - '0';

a[2] = s[1] - '0';

a[3] = s[2] - '0';

if (a[1] * a[2] * a[3] % (a[1] + a[2] + a[3]) != 0 &&  a[1] * a[2] * a[3] % 3 == 0) cout

 else

 cout

}

Answer 2

begin

 var n := ReadInteger();

 var p := (n div 100) * (n div 10 mod 10) * (n mod 10);

 Write('произведение цифр числа ', n,  

       ' не делится на сумму 1 и 3 цифр'+

       ' и делится на 3: ');

 Write((p mod (n div 100 + n mod 10) <> 0) and (p mod 3 = 0))

end.

Comments

PascalABC.NET