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

Question

Информатика

Витуля

18 июля, 16:38

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

+5

Ответы (2)

Знаете ответ на вопрос?

Пашуня · Answer 1

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.

Елисавета · Answer 2

Var a:longint;

Begin

readln (a) ;

if a mod 3=0 then writeln ('Yes') else writeln ('No') ;

End.