Написать программу в PascalABC.NET задание:с клавиатуры вводятся ...
Написать программу в PascalABC.NET
задание:с клавиатуры вводятся 3 числа.найти среднее арифметическое двух больших и двух меньших.
Есть ответ
18.12.2022
251
Ответ
по нубски правдо очень проверить не забудь)
vara,n,c:integer;x,y:real;beginreadln(a);readln(n);readln(c);if ((a > n) and (n > c)) then beginx:=(a+n)/2;y:=(n+c)/2;end else if((n > a) and (a > c)) then beginx:=(a+n)/2;y:=(a+c)/2;end else if((c > a) and (a > n)) then beginx:=(a+c)/2;y:=(a+n)/2;end else if((c > n) and (n > c)) then beginx:=(c+n)/2;y:=(n+c)/2;end else if((n > c) and (c > a)) then beginx:=(c+n)/2;y:=(a+c)/2;end else if((a > c) and (c > n)) then beginx:=(c+a)/2;y:=(n+c)/2;end else if((c > n) and (n > a)) then beginx:=(c+n)/2;y:=(n+a)/2;end;write('наибольшее: ',x,' наименьшее: ',y);end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022