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