Ответ:
program Friendly;
uses
SysUtils; // для IntToStr
var
a, b, i, pa, pb: LongInt;
sa, sb: string;
f: Boolean;
begin
Write ('A, B = ');
ReadLn (a, b);
sa := IntToStr (a);
sb := IntToStr (b);
f := True;
for i := 0 to 9 do begin
pa := Pos (IntToStr (i), sa);
pb := Pos (IntToStr (i), sb);
if ((pa <> 0) and (pb = 0)) or ((pa = 0) and (pb <> 0)) then begin
f := False;
Break;
end;
end;
if f then
WriteLn ('YES')
else
WriteLn ('NO');
ReadLn;
end.
1) Появление компьютерных сетей связано с тем, что военные части в случае военных действий во время холодной войны должны были бы обмениваться информацией по надежному каналу связи. Такой канал связи стали разрабатывать в 50-е годы в США.
Вторая причина тоже связана с обменом информацией только между институтами - появилась необходимость в быстром обмене при проведении исследований на разных научных базах в разных институтах
2) ограниченные возможности запоминающих устройств, т.е. для хранения больших объемов информации
3) для увеличения скорости обрабатываемых данных (в случае большого количества информации)
Ответ:
8
Объяснение:
2³ = 8
Число узлов в двоичном дереве не может превышать двойки в степени, равной высоте этого дерева.
Бант-кант-карт-корт-кора-коса
миг-мис-бис-бес-вес-век
Var i,n,hi,kol:integer;
begin
kol:=0;
for i:=1 to n do //Задаем цикл
begin
readln(hi); //Вбиваем рост претендента
if hi>=170 then //Проверяем, соответствует ли его рост условию
kol:=kol+1; //Счетчик кол-ва подходящих под условие претендентов
end;
end.