краткий ответ В Вашем офисе для организации локальной сети имеются шесть компьютеров. Предложите распределение между ними необходимых серверных функций (файл-сервер, сервер электронной почты и др.).
а компы то равнозначны? Или одному нужно раз день вылезти, а второй трафик гигабайтами гоняет? Так и распределяй, в зависимости от потребления и важности, кому то важно быть на связи весь рабочий день, а кто то может и подождать 2-3 часа без сети.
Если требуется выводить соответствующее сообщение в случае, когда таких чисел нет: var i, x, k : integer; Begin k:=0; for i:=1 to 5 do begin readln(x); if ((x>0) and (x<5)) or ((x>-8) and (x<-1)) then begin k:=k+1; writeln(x); end; end; if k=0 then writeln('нет таких чисел'); End.
Если требуется выводить соответствующее сообщение каждый раз когда число не входит в промежуток: var i, x : integer; Begin for i:=1 to 5 do begin readln(x); if ((x>0) and (x<5)) or ((x>-8) and (x<-1)) then writeln(x) else writeln(x,' не входит в промежуток'); end; End.
Function isPali(A : int64) : Boolean; Var B : int64; Begin B:=1; While B<A do B:=B*10; B:=B div 10; If A>9 then isPali:=((A div B)=(A mod 10)) and isPali(A mod B div 10) else isPali:=True; end;
Begin Readln(n); If isPali(n) then Writeln('Это полиндром.') else Writeln('Это не полиндром.'); Write('Его квадрат ',sqr(n)); If isPali(sqr(n)) then Writeln(' полиндром.') else Writeln(' не полиндром.'); end.
Хотя в Pabc.net есть функция и покороче:
Function IsPali(B : Longint) : Boolean; Begin IsPali:=(B=IntRevers(B)); end;
а компы то равнозначны? Или одному нужно раз день вылезти, а второй трафик гигабайтами гоняет? Так и распределяй, в зависимости от потребления и важности, кому то важно быть на связи весь рабочий день, а кто то может и подождать 2-3 часа без сети.