Question

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

Answer 1

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.