Напишите программу в паскаль для решения следующей : для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. если первое из них отрицательно, а второе вдвое больше третьего, то выведите среднее арифметическое всех четырех чисел. если произведение этих четырех чисел больше их суммы, то выведите эти сумму и произведение. если выполняются одновременно два перечисленных выше условия, то выведите среднее арифметическое этих чисел, их произведение и сумму. иначе, выведите удвоенные значения этих чисел.
Unforgettable77
3
02.06.2019 15:20
3
Другие вопросы по теме Информатика
fereela
19.05.2019 14:30
диииааннаа123
22.09.2019 11:50
муза2007
16.08.2019 13:50
dimamc99
14.07.2019 09:40
masyanyasinelnikova
14.07.2019 09:40
poiu123
14.07.2019 09:40
Nady2106
14.07.2019 09:40
geometriya3
14.07.2019 09:40
эмель1
14.07.2019 09:40
Анжела921
14.07.2019 09:40
Популярные вопросы
- Бічна сторона рівнобедроного трикутника 14см а периметер 40 см...
3 - Події на сході кінець XV-XVI...
1 - текст и определите топонимы, тем- Дескрипторы 1. Проанализируйте...
2 - Что представляет собой преступление? В двух предложениях....
2 - Что такое географическое положе- ние страны? Почему принято оцени-...
3 - Физика задача Дано: t=4года, V=300.000 км/с, Найти: S...
2 - поясність уживання подвоєних букв. Назвіть слова, у яких подвоєні...
1 - 4. Кинетическая энергия всех молекул кислорода, содержащихся...
3 - Не понимаю управления 2 страница 11...
3 - Як запалити і затушити спиртовку?...
1
begin
readln(a,b,c,d);i
f (a<0) and (b/c=2) then
begin
writeln((a+b+c+d)/4);
if a*b*c*b>a+b+c+d then
begin
writeln(a*b*c*b);
writeln(a+b+c+d);
end;
end
else
writeln(a*2,' ',b*2,' ',c*2,' ',d*2);
end.