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

jkh40949 jkh40949    1   04.03.2019 09:30    1

Ответы
Акерке2006 Акерке2006  24.05.2020 01:57

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика