Предмет: Информатика,
автор: Аноним
Составьте программу, заменяющую меньшее из двух данных чисел суммой, а большее – произведением этих чисел. С помощью оператора выбора- case
Ответы
Автор ответа:
0
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.
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
неправильно, увы
Автор ответа:
0
ого сори бро кажиться правильно
Автор ответа:
0
))))))))))
Автор ответа:
0
крутяг
Автор ответа:
0
вот что значит мастер
Похожие вопросы
Предмет: Математика,
автор: tanasoroka943
Предмет: Химия,
автор: sweerunicorn
Предмет: Алгебра,
автор: dmitch08
Предмет: Математика,
автор: Милена1517
Предмет: Математика,
автор: Skaila