Question

. Имеется четыре A,B,C,D произвольных числа. ЭВМ должна ответить на вопрос: Правда ли что среди чисел есть кратные трем? . Ответ ЭВМ должна вывести в виде текста – слов ”Правда” или ”Неправда”.

Answer 1

var a,b,c,d:integer;

BEGIN

  read(a,b,c,d);

  if (a*b*c*d mod 3 = 0) then

     writeln("Pravda")

  else writeln("Nepravda");

END.