Question

Даны два действительных числа X и Y, не равные друг другу. Заменить меньшее из этих чисел половиной их суммы, а большее – их удвоенным произведением. желательно сделайте в таблице

Answer 1

Паскаль:

var x,y,m,b:real;
begin
write('Введите x, y: ');
readln(x,y);
m:=(x+y)/2;
b:=2*x*y;
if x<y then
  begin
  x:=m;
  y:=b
  end
  else
    begin
    x:=b;
    y:=m
    end;
writeln('x=',x,'; y=',y);
end.

Блок-схема во вложении.

Answer 2

Ой спасибо тебе огромное еще раз,с меня была бы шоколадка если бы были знакомы))))ладно,спасибо еще раз))

Answer 3

Ладно, разрешаю тебе самой съесть мою шоколадку)))

Answer 4

аа даже так да?))) можно?))

Answer 5

Можно)))

Answer 6

ух ты ,круто))