Регистрация
NikoYuqa1
08.03.2020 20:40
Информатика
Есть ответ 👍

мне с этим заданием
​

274
311
Посмотреть ответы 1

Ответы на вопрос:

Dima890438
Dima890438
4,4(75 оценок)
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.

Популярно: Информатика