Задать вопрос
19 августа, 04:21

Помогите написать задачу на языке Паскаль:

Даны действительные числа a, b, c, d. Если ac>d, то каждое число заменить средним арифметическим всех значений. В противном случае все числа заменяются своими квадратами

+1
Ответы (2)
  1. 19 августа, 07:06
    0
    Var a, b, c, d, sr:real;

    begin

    read (a, b, c, d) ;

    sr: = (a+b+c+d) / 4;

    if (a
    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.
  2. 19 августа, 07:08
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите написать задачу на языке Паскаль: Даны действительные числа a, b, c, d. Если ad, то каждое число заменить средним арифметическим ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Помогите написать программу в Паскаль. Дан произвольный текст. Преобразовать его по следующим правилам: все буквы "о" заменяются на "оа", все пробелы заменяются символом "_", а запятые удаляются.
Ответы (1)
Ввести слово и число раз (Ввод; паскаль, 3). Вывести это слово так: паскаль паскаль паскаль паскаль паскаль паскаль
Ответы (1)
Напишите программу для решения задачи. С2. Даны целые числа a, b, с. Если а≤b≤c, то все числа замените квадратами, если а>b>c, то каждое число замените наибольшим из них, в противном случае смените знак каждого числа. С2.
Ответы (1)
Даны целые числа a, b, c. Если a ≤ b ≤ c, то все числа заменить rкубами, если a>b>c, то смените знак каждого числа, в противном случае каждое число заменить наибольшим и них.
Ответы (1)
Дано число. Если оно делится на 11, то уменьшить ч Дано число. Если оно делится на 11, то уменьшить число в 11 раз, в противном случае уменьшить число на 11. исло в 11 раз, в противном случае уменьшить число на 11.
Ответы (1)