Даны два действительных числа x и y, не равные друг другу. заменить меньшее из этих чисел половиной их суммы, а большее – их удвоенным произведением. желательно сделайте в таблице
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.
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.
Блок-схема во вложении.