В паскале!!!Даны
два числа. Большее из них замените разностью чисел, а меньшее — суммой.
Тест
для проверки: На входе программы
а=10, b=2. В результате a=8, b=12.
два числа. Большее из них замените разностью чисел, а меньшее — суммой.
Тест
для проверки: На входе программы
а=10, b=2. В результате a=8, b=12.
Answers & Comments
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.