Информатика, опубликовано 27.01.2019 23:10
Для пяти произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. если первое, второе и пятое числа отрицательны, то выведите их произведение. если третье и четвёртое числа больше100, то выведите среднее арифметическое всех пяти чисел. если выполняются одновременно два перечисленных выше условия, то выведите на экран все пять чисел без изменения. иначе, выведите третье и пятое числа, увеличив их в два раза.
Ответ оставил: Гость
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.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01