Даны действительные числа A,B,C,D. Если A<=B<=C<=D, то каждое число заменить наибольшим из них; если A>B>C>D, то числа оставить без изменения; в противном случае все числа заменяются их квадратами. На
int main() { double A, B, C, D; cout << "Введите действительные числа A, B, C и D через пробел: "; cin >> A >> B >> C >> D; if (A<=B && B<=C && C<=D) { int max = A; if (B > max) max = B; if (C > max) max = C; if (D > max) max = D; A = max; B = max; C = max; D = max; } else if (!(A>B && B>C && C>D)) { A = A*A; B = B*B; C = C*C; D = D*D; } cout << "Результат: " << A << ' ' << B << ' ' << C << ' ' << D; return 0; }
Var A, B, C, D: real; begin writeln ('Введите числа A,B,C,D'); 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 not ((A>B) and (B>C) and (C>D)) then begin A:=A*A; B:=B*B; C:=C*C; D:=D*D; end; writeln('Результат:', A:2:2,' ',B:2:2,' ',C:2:2,' ',D:2:2); end.
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.
using namespace std;
int main()
{
double A, B, C, D;
cout << "Введите действительные числа A, B, C и D через пробел: ";
cin >> A >> B >> C >> D;
if (A<=B && B<=C && C<=D)
{
int max = A;
if (B > max)
max = B;
if (C > max)
max = C;
if (D > max)
max = D;
A = max; B = max; C = max; D = max;
}
else if (!(A>B && B>C && C>D))
{
A = A*A;
B = B*B;
C = C*C;
D = D*D;
}
cout << "Результат: " << A << ' ' << B << ' ' << C << ' ' << D;
return 0;
}
begin
writeln ('Введите числа A,B,C,D');
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 not ((A>B) and (B>C) and (C>D)) then begin
A:=A*A; B:=B*B; C:=C*C; D:=D*D; end;
writeln('Результат:', A:2:2,' ',B:2:2,' ',C:2:2,' ',D:2:2);
end.
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.