Имеется четыре a,b,c,d произвольных числа. эвм должна - вопрос №86711 от zzsasz33 19.12.2021 09:28

Question

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

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