Question

даю 35 баллов за всё

Answer 1

Ответ:

1)

var a,b,c:real;

begin

 readln(a,b);

 c:=a;

 a:=b;

 b:=c;

 writeln(a,' ',b);

end.

2)

var a,b,c:real;

begin

 readln(a,b,c);

 if (a>b) and (a>c) then writeln(a,' - наибольшее число')  

 else if (b>a) and (a>c) then writeln(b,' - наибольшее число')  

 else writeln(c,' - наибольшее число');

end.

3)

var a,b,c:int64;

begin

 readln(a);

 if a > 0 then begin

   b:= a mod 10;

   c:= a div 10;

   a:= b * c;

 end

 else a:=sqr(a);

 writeln(a);

end.