Question

В паскале!!!Даны
два числа. Большее из них замените разностью чисел, а меньшее — суммой.

Тест
для проверки: На входе программы
а=10, b=2. В результате a=8, b=12.

Answer 1

uses crt;
var a,b,s,r: integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
s:=a+b;
if a>b then
 begin
r:=a-b;
a:=r;
b:=s;
 end
else
begin
r:=b-a;
b:=r;
a:=s;
 end;
 
 writeln(a,b);
end.