Question

Даны действительные числа A,B,C,D. Если A<=B<=C<=D, то каждое число заменить наибольшим из них; если A>B>C>D, то числа оставить без изменения; в противном случае все числа заменяются их квадратами. Паскаль,пжл!!!

Answer 1

Var a,b,c,d,m:real;z:boolean;
Begin
read(a,b,c,d);
if (a<=b) and (b<=c) and (c<=d) then
begin
m:=max(max(a,b),max(c,d));
a:=m;
b:=m;
c:=m;
d:=m;
end
else if (a>b) and (b>c) and (c>d) then z:=true
else begin
a:=a*a;
b:=b*b;
c:=c*c;
d:=d*d;
end;
writeln(a,' ',b,' ',c,' ',d);
End.

Answer 2

Вот пример программы на языке Pascal, реализующей указанное условие:

pascalCopy code
program NumbersReplacement;

var
  A, B, C, D: Real;

begin
  writeln('Введите четыре действительных числа:');
  readln(A, B, C, D);

  if (A <= B) and (B <= C) and (C <= D) then
  begin
    A := D;
    B := D;
    C := D;
  end
  else if (A > B) and (B > C) and (C > D) then
  begin
    // Числа остаются без изменения
  end
  else
  begin
    A := A * A;
    B := B * B;
    C := C * C;
    D := D * D;
  end;

  writeln('Результат:');
  writeln('A = ', A);
  writeln('B = ', B);
  writeln('C = ', C);
  writeln('D = ', D);

  readln;
end.

Программа запрашивает четыре действительных числа у пользователя, а затем проверяет условия и выполняет соответствующие замены или оставляет числа без изменений. Результат замен выводится на экран.