Информатика, опубликовано 2018-08-22 22:16:26 by Гость
Дано трёхзначное число, проверить делится ли произведение его цифр на 5?
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на