Question

почему не правильно?

794504d23877c2d925b5608c7ddf25b0.pas

Answer 1

var
x,y,z:real;
begin
  readln(X,Y,Z);
  if((x=y) and (x=z) and (y=z) ) then
   begin
    x:=x*3;
    y:=y*3;
    z:=z*3;
    write('X: ',x,' Y: ',y,' Z: ',z);
   end else
   if (y=z) then
    begin
      x:=x*(-1);
      y:=y*(-1);
      z:=z*(-1);
      write('X: ',x,' Y: ',y,' Z: ',z);
    end else
    begin
      x:=222;
      y:=222;
      z:=222;
      write('X: ',x,' Y: ',y,' Z: ',z);
    end;
   readln
end.

Answer 2

Условие задачи скиньте уже в каком-нибудь виде

Answer 3

введите с клавиатуры три числа x,y,z. если числа равны, то увеличте их в три раза и выведите результат на экран.Если равны только два последние числа то замените все числа на противоположные и выведите результаты.

Answer 4

иначе все числа сделайте равными 222 и выведите результат

Answer 5

Изменил

Answer 6

спасибо