Регистрация
Кисуня111111111
01.05.2020 04:37
Информатика
Есть ответ 👍

Даны действительные числа x, y. меньшее из этих двух чисел заменить их среднеарифметическим, а большее их удвоенным произведением. разработать алгоритм решения

152
249
Посмотреть ответы 2

Ответы на вопрос:

vidana3
vidana3
4,5(70 оценок)
Var     x,y,a: real; begin write('x = '); readln(x); write('y = '); readln(y); if x> y then     begin     a: =x;     x: =2*x*y;     y: =(a+y)/2;     end else     begin     a: =y;     y: =2*x*y;     x: =(x+a)/2;     end; writeln; writeln('x = ',x); writeln('y = ',y); end.
Marinkasmirnova
Marinkasmirnova
4,7(56 оценок)

гмышчтытчштущч.һйяогкаөілеьш

Популярно: Информатика