Определить делится ли нацело произведение чисел на 3

Question

Информатика

Леонтьич

10 ноября, 14:54

Определить делится ли нацело произведение чисел на 3

+5

Ответы (2)

Знаете ответ?

Андя · Answer 1

Var a:longint;

Begin

readln (a) ;

if a mod 3=0 then writeln ('YES') else writeln ('NO') ;

End.

Аврея · Answer 2

Var

a, b: integer;

Begin

Writeln ('Введите 2 числа') ;

Read (a, b) ;

if (a*b mod 3 = 0) then Writeln ('Произведение чисел ', a, ' и ', b, ' делится нацело на 3')

else Writeln ('Произведение чисел ', a, ' и ', b, ' нацело на 3 не делится') ;

end.