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

Question

56

Для пяти произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. Если первое, второе и пятое числа отрицательны, товыведите их произведение. Если третье и четвертое числа больше 100, то выведите среднее арифметическое всех пяти чисел. Если выполняются одновременно два перечисленных выше условия, то выведите на экран все пять чисел без изменения. Иначе, выведите третье и пятое числа, увеличив их в два раза.

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

iyarko · Accepted Answer

35

iyarko

15 февраля 2023

var a1,a2,a3,a4,a5: real; u1,u2: boolean; beginwriteln ('Введите 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) elseif u1 then writeln ('a1*a2*a5=',a1*a2*a5) elseif u2 then writeln ('sr.arifm=', (a1+a2+a3+a4+a5) /5) else writeln (2*a3,',2*a5); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: