ПОМОГИТЕ ПОЖАААЛУСТА!
Даны 2 действительных числа a,b. Вывести первое, если оно больше второго и оба числа в противном случае. Составить програму
даны 2 числа Х , У меньшее из них заменить иполусуммой , большее -удвоенным произведением этих чисел. составить программу
Answers & Comments
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.