profile
Размещено 5 лет назад по предмету Информатика от KelWyD

Составить программу в паскале:

 

 

Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты.:

· Если первое из них отрицательно, а второе вдвое больше третьего, то выведите среднее арифметическое всех четырех чисел.

· Если произведение этих чисел больше их суммы, то выведите эти сумму и произведение.

· Если выполняются одновременно два перечисленных выше условия, то выведите среднее арифметическое этих чисел, их произведение и сумму

· Иначе, выведите удвоенные значения этих чисел

 

  1. Ответ на вопрос
    Ответ на вопрос дан kefa

    var
    a,b,c,d:real;
    begin
    readln (a,b,c,d);
    if ((a<0) and (b=2*c)) and ((a*b*c*d)>a+c+c+d)
    then
    begin
    writeln ('Среднее арифметическое: ',(a+b+c+d)/4);
    writeln ('Произведение: ', a*b*c*d);
    writeln ('сумма:',a+b+c+d)
    end
    else
    if (a<0) and (b=2*c)
    then writeln ('Среднее арифметическое: ',(a+b+c+d)/4)
    else
    if ((a*b*c*d)>(a+c+c+d))then

    begin
    writeln ('Произведение: ', a*b*c*d);
    writeln ('сумма:',a+b+c+d)
    end
    else writeln (2*a,' ',2*b,' ',2*c,' ',2*d);
    end.

  2. Ответ на вопрос
    Ответ на вопрос дан Slider808

    program p

    var

     a,b,c,d : integer;

    begin

    readln(a),

    readln(b),

    readln(c),

    readln(d),.

    if (a<0) and (b/c=2) then witeln ((a+b+c+d)/4);

    if (a*b*c*d>a+b+c+d) then begin witeln (a+b+c+d);witeln (a*b*c*d);end;

    if (a*b*c*d>a+b+c+d)and((a<0) and (b/c=2)) then begin end else

    begin

    writeln(2*a) ;

    writeln(2*b) ;

    writeln(2*c) ;

    writeln(2*d) ;

    end;

     

    end.

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.