Помогите написать задачу на языке Паскаль:
Даны действительные числа a, b, c, d. Если a<b<c<d, то каждое число заменить наибольшим из них. Если a>b>c>d, то каждое число заменить средним арифметическим всех значений. В противном случае все числа заменяются своими квадратами
Даны действительные числа a, b, c, d. Если a<b<c<d, то каждое число заменить наибольшим из них. Если a>b>c>d, то каждое число заменить средним арифметическим всех значений. В противном случае все числа заменяются своими квадратами
More Questions From This User See All
Answers & Comments
a, b, c, d, sr: real;
begin
read(a, b, c, d);
sr := (a + b + c + d) / 4;
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
a := sr;
b := sr;
c := sr;
d := sr;
end
else
begin
a := a * a;
b := b * b;
c := c * c;
d := d * d;
end;
write(a, ' ', b, ' ', c, ' ', d);
end.
Verified answer
Var a,b,c,d,sr:real;begin
read(a,b,c,d);
sr:=(a+b+c+d)/4;
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
a:=sr;
b:=a;
c:=a;
d:=a;
end
else
begin
a*=a;
b*=b;
c*=c;
d*=d;
end;
write(a,' ',b,' ',c,' ',d);
end.