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

Question

Информатика

Генуха

1 июня, 17:51

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

+5

Ответы (1)

Знаете ответ на вопрос?

Эма · Answer 1

Var a:integer;

begin

writeln ('Введите число') ;

readln (a) ;

if (((a mod 10) * (a div 1000) * (a div 100 mod 10) * (a mod 100 div 10)) mod 3 = 0) then write ('произведение цифр этого числа кратно трём')

else write ('произведение чисел не кратно трём')

end.