ПЖ срочно НАДО ПРАВИЛЬНОЕ РЕШЕНИЕ ДАЮ 70 БАЛОВ!!!! ПАСКАЛЬ А В С Номер 1. Даны три...

Question

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

Comments

на java норм будет?

---

НЕТ

---

на паскале надо

---

завтра надо сдать просто не сделал

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.