Program n1;Uses CRT;Var a,b: integer;beginWriteln('Vvedite chisla');Readln(a,b);If a>b then writeln(2*a*b,' ',a+b/2:2:2) else if a=b then writeln('ravny!') else writeln(a+b/2:2:2,' ',2*a*b);readlnend.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Program n1;
Uses CRT;
Var a,b: integer;
begin
Writeln('Vvedite chisla');
Readln(a,b);
If a>b then writeln(2*a*b,' ',a+b/2:2:2)
else if a=b then writeln('ravny!')
else writeln(a+b/2:2:2,' ',2*a*b);
readln
end.