Узел,обслуживающий клиента то-есть сидят куча клиентов шлют запросы, а сервер обрабатывает и возвращает обработанные данные
IP1379
30.01.2020
Программу написать? если да - то я уже тут. //язык pascal var x,y,s : longint; begin readln(x,y); if (x< y) then s: = (x + y) div 2 else s: = x-y; if (x< y) and ((x+y) mod 2 < > 0 ) then writeln('среднее арифметическое ',x,' и ',y,' = ',s,',5') else if (x> =y) then writeln('разность ',x,' и ',y,' = ',s) else writeln( 'среднее арифметическое ',x,' и ',y,' = ',s); readln(x); //эта строчка нужна, чтобы программа остановилась в конце. ее можно не писать, если ты не хочешь. end.
voropayelena26
30.01.2020
1. var x : longint; begin readln(x); if (x> =0) then x : = x+1; writeln('полученное число: ',x); readln(x); // эту строчку можно не писать, но она останавливает программу, чтобы ты мог посмотреть на результат. end. 2. var x : longint; begin readln(x); if (x> =0) then x : = x+1 else x: = x-2; writeln('полученное число: ',x); readln(x); //опять же end. 3. var x : longint; begin readln(x); if (x> 0) then x : = x+1 else if (x< 0) then x: =x-2 else x: = 10; writeln('полученное число: ',x); readln(x); //опять же end.