Вопрос по информатике:
Помогите написать задачу на языке Паскаль:
Даны действительные числа a, b, c, d. Если a<b<c<d, то каждое число заменить наибольшим из них. Если a>b>c>d, то каждое число заменить средним арифметическим всех значений. В противном случае все числа заменяются своими квадратами
- 23.01.2017 08:45
- Информатика
- remove_red_eye 6900
- thumb_up 28
Ответы и объяснения 2
Var a,b,c,d,sr:real;
begin
read(a,b,c,d);
sr:=(a+b+c+d)/4;
if (a
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.
- 24.01.2017 13:15
- thumb_up 3
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.
- 25.01.2017 19:31
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.