Uses graphabc;
begin
setwindowsize(400,190);
rectangle(20,20,380,70);
setbrushcolor(clred);
rectangle(20,70,380,120);
setbrushcolor(clblue);
rectangle(20,120,380,170);
end.
Одноранговое соединение - это тот же самый Wi-Fi в домашних условиях или любое другое соединение устройств, тогда "главного" нет. А серверное - это когда такой есть, например, к серверу этого сайта подключается много-много клиентов сейчас =)
<span>Вопрос из кроссворда учебника по информатики </span><span>это обработка )</span>
<span><span>
Type
Song = Record
Naz : String [ 40 ];
Stil : String [10];
Dl : Real;
End;
</span></span><span><span>
Var
Massiv : ARRAY [ 1 . .10 ] OF Song;
</span></span> i, N : Short;
<span><span>- Тогда -
FOR i := 1 TO N DO WITH Massiv [ i ] DO
</span>
Begin
Write ( ‘ Введите название песни - ‘ );
<span>Readln ( Naz );
</span></span>Write ( ‘ Введите стиль песни - ‘ );
Readln ( Stil );<span>
Write ( ‘ Укажите длительность песни - ‘ );
Readln ( Dl );
End;
</span>
Для Pascal:
Как вариант, можно возвести в квадрат и тут же из него взять корень
y := sqrt((x-1)(x-1)) + sqrt((x-4)(x-4))
Однако, для этого y должен быть объявлен как вещественный тип (real, double), поскольку функция взятия корня возвращает вещественный тип, и потому в целочисленном y сохраниться не может.
Исходный код в приложении.