С клавиатуры вводятся два целых числа. Выведите ответ "да" если их произведение кратно 3. В противоположном случае введите ответ "нет".

Question

Информатика

Иванна

3 мая, 04:27

С клавиатуры вводятся два целых числа. Выведите ответ "да" если их произведение кратно 3. В противоположном случае введите ответ "нет".

+3

Ответы (1)

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

Матя · Answer 1

Var

a1, a2: integer;

begin

a1 : = 0;

a2 : = 0;

writeln ('enter the first value: ') ;

read (a1) ;

writeln ('enter the second value: ') ;

read (a2) ;

if (a1*a2 mod 3 = 0) then

begin

writeln ('da') ;

end

else

writeln ('net') ;

end.