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

Question

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

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