Не указано на каком языке программирования нужно, поэтому напишу уж на Паскале. Всё сделал так, чтобы было понятно, хоть и не так компактно.
Var x, y, z:integer;
Begin
Write('Введите числа X, Y и Z^: ');
Readln(x, y, z);
If x mod 5=0 then x:=x+1;
If y mod 5=0 then y:=y+1;
If z mod 5=0 then z:=z+1;
Writeln('Полученные в итоге числа(X, Y, Z):', x, ', ', y, ', ', z);
End.
var a,b,c,max : real;
begin
read(a,b,c);
max:=(a+b+abs(a-b))/2;
max:=(max+c+abs(max-c))/2;
writeln(max);
end.
А) C помощью сетевого коммутатора или маршрутизатора, так как нам надо будет подключить несколько компьютеров.
Б) DSL через телефон домашний или высокоскоростной через оптоволокно ( одним словом проводной).
В) Беспроводной интернет (Wi-fi).