Есть ответ 👍

Привет, нужна с инфой, что-то туплю на ДП, реализация не нужна, нужен только переход динамики

170
423
Посмотреть ответы 1

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

Xylophone
4,8(14 оценок)

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.

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