Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Program Anutka1506;
uses crt;
var
  x,y,s,p: real;
begin
  writeln(Введите числа:);
  write(X=); readln(x);
  write(Y=); readln(y);
  writeln(*** alphaues is thinking... ***);
  writeln(***          OK             ***);
  s:=(x+y)/2;
  p:=2*x*y;
  if x      begin
        x:=s;
        y:=p;
      end
     else
       begin
         x:=p;
         y:=s;
       end;
  writeln(X=,x,        Y=,y);
end.