Помогите пожалуйста составить задачу: Даны 2 числа, меньшее из них заменить их…

Question

45

Помогите пожалуйста составить задачу: Даны 2 числа, меньшее из них заменить их полусуммой этих чисел, а большее произведением. Задача решение впаскале.

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

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

nikitann · Accepted Answer

51

nikitann

03 февраля 2023

Var x,y,c: ineger; beginreadln (x,y); c: =y; if x>y thenbegin y: =(x+y) /2; x: =x*c; end; if xbegin c: =x; x: =(x+y) /2; y: =x*c; end; end.

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

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