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

Question

Информатика

Витуля

22 апреля, 14:44

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

+1

Ответы (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.