Даны две различные переменные. Составить алгоритм, который значение меньшей переменной заменит произведением этих переменных, а значение большей- суммой. (в ABC Pascal)
Answers & Comments
Tom126666
Program f1; var a,b: integer; begin readln(a,b); if a<b then begin a:=a*b b:=a+b; writeln(a,b); else a:=a+b; b:=a*b; writeln(a,b); end; end.
Answers & Comments
var a,b: integer;
begin
readln(a,b);
if a<b then begin
a:=a*b
b:=a+b;
writeln(a,b);
else
a:=a+b;
b:=a*b;
writeln(a,b);
end;
end.