Question

Даны 3 числа, если числа равны, то увеличьте их в 3 раза(каждое) и выведите результат, если равны только 2 последних числа, то замените все числа на противоположные и выведите результат, иначе замените все числа нулями. ​

Answer 1

program raf105;

var

 a,b,c: integer;

begin

 write('Введите три числа: ');

 readln(a,b,c);

 if (a = b) and (b = c) then

   begin

     a:= a*3;

     b:= b*3;

     c:= c*3;

   end

 else if b = c then

   begin

     a:= a*-1;

     b:= b*-1;

     c:= c*-1;

   end

 else

   begin

     a:= 0;

     b:= 0;

     c:= 0;

   end;

 writeln('Вывод: ',a,' ',b,' ',c);

end.

PascalABC