Question

ПОМОГИТЕ ПОЖАААЛУСТА! 

Даны 2 действительных числа a,b. Вывести первое, если оно больше второго и оба числа в противном случае. Составить програму

даны 2 числа Х , У  меньшее из них заменить иполусуммой , большее -удвоенным произведением этих чисел. составить программу

 

 

Answer 1

1)

uses crt;

var

a,b:integer;

begin

clrscr;

read(a,b);

if a>b then write(a) else write(a,';',b);

end.

 

2)

uses crt;

var

x,y,x1,y1:real;

begin

read(x,y);

x1:=x; y1:=y;

if x<y then begin x:=(x1+y1)*(1/2); y:=(x1*y1)*2; end else begin y:=(x1+y1)*(1/2); x:=(x1*y1)*2; end;

write('x=',x,',','y=',y);

end.