Для пяти произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. если первое, второе и пятое числа отрицательны, то выведите их произведение. если третье и четвёртое числа
больше100, то выведите среднее арифметическое всех пяти чисел. если выполняются одновременно два перечисленных выше условия, то выведите на экран все пять чисел без изменения. иначе, выведите третье и пятое числа,
увеличив их в два раза.
211019831
2
10.03.2019 06:00
5
Другие вопросы по теме Информатика
изу197
28.05.2019 17:00
mazurenkoella
28.05.2019 17:00
kros222999
17.12.2019 09:39
утляоврчвливтвымив
17.12.2019 09:41
ismatov031
17.12.2019 09:42
DUGLASMORFINI
17.12.2019 09:44
PANDAnumber
17.12.2019 09:49
ianezlo
05.08.2019 00:30
Популярные вопросы
- Как я представляю вещего олега? напишите небольшое представление из...
3 - Напишите уравнение реакций: калий-оксид калия-гидроксид калия-карбонат...
1 - По будуйте перерізі многогранників площиною...
1 - Кто и когда первым достиг северного и южного полюсов?...
1 - 50 ! №1 в печи сгорели сухие дрова массой 1,6 т и каменный уголь марки...
1 - На склад прывезли 624 скрыни вишань па 5 кг у кожнай и 692 скрыни слиу...
3 - Нужно написать цели и военной доктрины...
1 - Запишите и вычислите суммы квадратов чисел 7 и 2, квадрат суммы чисел...
1 - Напишите сочинение на тему мой мир - желательно на 2 листа ...
3 - 1. когда петр гринёв был записан в семёновский полк сержантом? 1) после...
2
var a1,a2,a3,a4,a5:real;
u1,u2:boolean;
begin
writeln('Введите 5 вещественных чисел');
readln(a1,a2,a3,a4,a5);
u1:=(a1<0) and (a2<0) and (a5<0);
u2:=(a3>100) and (a4>100);
if u1 and u2 then writeln(a1,' ',a2,' ',a3,' ',a4,' ',a5)
else
if u1 then writeln('a1*a2*a5=',a1*a2*a5)
else
if u2 then writeln('sr.arifm=',(a1+a2+a3+a4+a5)/5)
else writeln(2*a3,' ',2*a5);
end.