Дано трехзначное число составить программу которая определят кратно ли 3 произведение его...

Question

Дано трехзначное число составить программу которая определят кратно ли 3 произведение его цифр ( на языке паскаль)

Answer 1

Как-то так (фотография)
(работает и с отрицательными числами)

Answer 2

Var
a, b : integer;
begin
b:=1;
write('a?');
readln(a);
a := abs(a);
while a > 0 do
begin
b := b * a mod 10;
a := a div 10;
end;
if b mod 3 =0 then writeln('да')
else writeln('нет');
end.

Comments

ну тогда можно еще проверять, а число ли это, и целое ли оно, а то там еще дробная часть какая заведется. или вы опять скажете, что в школьных задачах не обязательно проверять? где это сказано? меня вот в школе учили всегда всё проверять, чтоб пользователь себе в ногу не выстрелил

---

но в принципе программа примет нецелое число и счастливо обвалится. так же обвалится и при строчном вводе. речь не о том, что рассматривают в школе, а о субъективном мнении, по поводу того что должно и не должно быть в программе

---

и снова возвращаемся к началу дискуссии. в изначальном задании ни слова нет про отрицательные числа и сдается мне, если бы в задаче было что то про это сказано, здесь бы это написал ТС. вот именно, кто я такой, чтоб спорить с модератором... уговорили, не буду больше помогать.

---

ушел...