varanchik
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.
varanchik
Условие задачи скиньте уже в каком-нибудь виде
Лёвушкa
введите с клавиатуры три числа x,y,z. если числа равны, то увеличте их в три раза и выведите результат на экран.Если равны только два последние числа то замените все числа на противоположные и выведите результаты.
Лёвушкa
иначе все числа сделайте равными 222 и выведите результат
Answers & Comments
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.