Дано натурольное четырехзначное число. определите, будет ли произведение цифр этого числа кратно трем?

174

251

Посмотреть ответы 2

Ответы на вопрос:

faa7

Информатика

4,6(84 оценок)

Var a: integer; begin writeln('введите число'); readln(a); if mod 10)* (a div 1000)*(a div 100 mod 10)* (a mod 100 div 10)) mod 3 =0) then write('произведение цифр этого числа кратно трём') else write('произведение чисел не кратно трём') end.