Question

ПЖ срочно НАДО ПРАВИЛЬНОЕ РЕШЕНИЕ ДАЮ 70 БАЛОВ!!!! ПАСКАЛЬ А В С
Номер 1.
Даны три числа.Если произведение первых двух чисел делится на третье число, то получить среднее арифметическое данных чисел, в противном случае вывести произведение трёх данных чисел.
Номер 2.
Даны два числа. Если числа не равны, то каждое из чисел увеличить в 2 раза, в противном случае оставить числа без изменения

Answer 1

#1

var res:real; a:integer; b:integer; c:integer;

begin

   readln(a);

   readln(b);

   readln(c);

   if (a*b) mod c = 0 then

       begin

           res:=(a+b+c)/3;

           writeln(res);

       end

   else

       begin

           res:=a*b*c;

           writeln(res);

       end;

       

end.