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

+ 0 -

Joker22233

06 окт. 2014 г., 23:22:32 (9 лет назад)

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.

+ 0 -

Terva

07 окт. 2014 г., 0:12:14 (9 лет назад)

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

+ 0 -

Krol

07 окт. 2014 г., 2:50:48 (9 лет назад)

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

+ 0 -

111svt1111

07 окт. 2014 г., 5:38:18 (9 лет назад)

Комментарий удален

+ 0 -

Mrshamsta

07 окт. 2014 г., 6:35:21 (9 лет назад)

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

+ 0 -

Levchuk2

07 окт. 2014 г., 7:25:18 (9 лет назад)

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