В ПАСКАЛЕ, ПОМОГИТЕ! Даныдва числа. Большее из них замените разностью чисел, а…

Question

64

В ПАСКАЛЕ, ПОМОГИТЕ! Даныдва числа. Большее из них замените разностью чисел, а меньшее — суммой. Тест для проверки: На входе программы а=10, b=2. В результате a=8, b=12.

в избранное ссылка

Знаете ответ?

petrovp · Accepted Answer

45

petrovp

06 февраля 2023

Var a,b: real; beginread (a,b); if a>b thenbegina: =a-b; b: =2*b+a; endelsebeginb: =b-a; a: =2*a+b; end; write (a,',b) end.

комментировать

в избранное ссылка отблагодарить