Имеется четыре a,b,c,d произвольных числа. эвм должна - вопрос №87388 от liza5634 16.05.2020 12:45

Question

Информатика: Имеется четыре a,b,c,d произвольных числа. эвм должна ответить на вопрос: правда ли что среди чисел есть кратные трем? . ответ эвм должна вывести в виде текста – слов ”правда” или ”неправда”.

liza5634 · Answer

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....