Question

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

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.