Составьте программу, заменяющую меньшее из двух данных чисел суммой, а большее –...

Question

Составьте программу, заменяющую меньшее из двух данных чисел суммой, а большее – произведением этих чисел. С помощью оператора выбора- case

Comments

числа вводишь сам?

---

или даны уже просто выбрать их

---

а оператор касе как суда приделать

---

с оператором числа выбирать?

---

а может другой оператор

---

я могу тебе сделать без касе , но я не знаю какую функцию дать касу

---

можно запрятать в кейсе числа)))))))

---

как бы рандомно

Answer 1

Var a,b,min,max,f:integer;
begin
readln(a,b);
min:=a+b;
max:=a*b;
if a>b then f:=1 else f:=2;
case f of
1: begin  a:=max; b:=min end; 
2: begin a:=min; b:=max end;
end;
writeln(a,b);
end.

Comments

неправильно, увы

---

ого сори бро кажиться правильно

---

))))))))))

---

крутяг

---

вот что значит мастер