Var a, d, c, t: integer; begin readln(a, d, c); if a < d then begin t : = a; a : = d; d : = t; end; if a < c then begin t : = a; a : = c; c : = t; end; if d < c then begin t : = d; d : = c; c : = t; end; writeln(a, ' ', d, ' ', c); end.
Спасибо
Ответ дал: Гость
сетевые платы для каждого компьютера, концентратор (хаб) или маршрутизатор (свитч), кабель типа "витая пара". кабелем соединить каждый компьютер ()через сетевую плату с хабом или свитчем.
Ответ дал: Гость
program p;
var s,a,b,c: string; begins: =' фигуры'; writeln('введите названия трёх фигур'); read(a,b,c); writeln(s,': ',a,', ',b,' и ',c); end.
Популярные вопросы