Задание:
В паскале! Даныдва числа. Большее из них замените разностью чисел, а меньшее — суммой. Тест для проверки: На входе программы а=10, b=2. В результате a=8, b=12.
Решение:
Uses crt; var a,b,s,r: integer; beginwriteln ('Введите первое число'); readln (a); writeln ('Введите второе число'); readln (b); s: =a+b; if a>b then beginr: =a-b; a: =r; b: =s; endelsebeginr: =b-a; b: =r; a: =s; end; writeln (a,b); end.
Знаете другой ответ?