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

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

Виктор Жожинов 2019-02-20 21:47:21

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

Варвара Похлестова 2019-02-20 21:55:59

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

Kira 2019-02-20 21:58:54

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

Циперович Виталик 2019-02-20 22:01:34

ушел...

Леусатова Ирина · Answer 2 · 2019-02-20 21:46:05+3:00

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

О проекте

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

Добро пожаловать!