ДэШэ
Опубликовано 7 лет назад по предмету Информатика от ДэШэ


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

  1. Ответ
    Ответ дан archery

    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.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц