язык паскаль с клав ввод 2 числа x и y не равные друг другу. Меньший из этих двух числ заменить их пол суммы а большие их удвоен произвед
Ответы
Ответ дал:
0
Подойдёт? var x,y: real; begin read(x,y); if x < y then begin x := (x+y)/2; y := 2*x*y; end else begin y := (x+y)/2; x := 2*x*y; end; write('x=',x,', y=',y);
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад