Дано натурольное четырехзначное число. Определите, будет ли произведение цифр этого числа кратно трем?
Дано натурольное четырехзначное число. Определите, будет ли произведение цифр этого числа кратно трем?
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы