Дано трёхзначное число, проверить делится ли произведение его цифр на 5?

Question

Дано трёхзначное число, проверить делится ли произведение его цифр на 5?

Экономика

Гость

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

Accepted Answer

var a,b,c:integer; begin write('Введите число = ');readln(c); a:=c mod 10; b:=(c mod 100) div 10; c:=c div 100; if (a*b*c) mod 5 = 0 then writeln('Делится') else writeln('Не делится'); end.