Составить программу в паскале: для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты.: · если первое из них отрицательно, а второе вдвое больше третьего, то выведите среднее арифметическое всех четырех чисел. · если произведение этих чисел больше их суммы, то выведите эти сумму и произведение. · если выполняются одновременно два перечисленных выше условия, то выведите среднее арифметическое этих чисел, их произведение и сумму · иначе, выведите удвоенные значения этих чисел

277

363

Посмотреть ответы 3

Ответы на вопрос:

LinaMat

Информатика

4,4(77 оценок)

program p

var

a,b,c,d : integer;

begin

readln(a),

readln(b),

readln(c),

readln(

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.

Сахарокcom

Информатика

4,4(78 оценок)

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.

kolyapauk2016p08ax4

Информатика

4,7(77 оценок)

Var arr: array[1..100] of integer; i, n, min, max: integer; begin min: =1; max: =1; readln(n); for i: =1 to n do begin arr[i]: =random(100); write(arr[i], ' '); if arr[i]> arr[max] then max: =i; if arr[i]< arr[min] then min: =i; end; writeln; writeln('минимальный(', arr[min], '); максимальный(', arr[max], '); '); end .

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.