Помогите написать задачу на языке Паскаль:Даны действительные числа a, b, c, d. Если a меньше b меньше c меньше d, то каждое число заменить наибольшим из них. Если a больше b больше c больше d, то каждое число заменить средним ...
Помогите написать задачу на языке Паскаль:
Даны действительные числа a, b, c, d. Если ab>c>d, то каждое число заменить средним арифметическим всех значений. В противном случае все числа заменяются своими квадратами
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c,d,sr:real;
begin
read(a,b,c,d);
sr:=(a+b+c+d)/4;
if (ab) 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.
Гость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 := 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.
Не нашли ответ?
Похожие вопросы