Program rost;
var a: integer;
begin
readln (a);
if a<=180 then
Writeln('Не очень высокий')
else
Writeln('Высокий');
<span> end.</span>
<span>Internet Protocol (IP) обеспечивает маршрутизацию IP-пакетов, то есть доставку информации от компьютера-отправителя к компьютеру-получателю.(отправляет)</span><span>Transmission Control Protocol (TCP), то есть транспортный протокол, обеспечивает разбиение файлов на IP-пакеты в процессе передачи и сборку файлов в процессе получения. (собирает)</span> Рисунок: Фрагментация IP-пакетов при передаче между сетями с разным максимальным размером пакетов: К1 и 01 - канальный и физический уровень сети 1; К2 и Ф2 - канальный и физический уровень сети 2. <span>Цель: Функции уровня IP входит разбиение слишком длинного для конкретного типа составляющей сети сообщения на более короткие пакеты с созданием соответствующих служебных полей, нужных для последующей сборки фрагментов в исходное сообщение.</span>
2 ^29 бит = 2^29 / 2^3 байт = 2^26 байт
2^26 байт=2^26 /2^10=2^16 килобайт
2^16 килобайт=2^16/2^10=2^6 мегабайт=64 мегабайт
0,125 гб = 0,125 ✕ 1024 = 128 мегабайт
128 + 64 = 192 мегабайт
Var X: array [1..20] of integer;
i, sum : integer;
<span>BEGIN
</span>for i:=1 to 25 do
read(X[i]);
sum:=0;
i:=1;
while X[i]<>0 do begin
sum:=sum+X[i];
i:=i+1;
<span>end;
</span>writeln('Первый нулевой элемент ', i);
<span>writeln('Сумма элементов до нулевого ', sum);
</span>END.
Program
tapsirmaC;
var
a,b,n,x,p:integer;
input,output:text;
begin
p:=0;
assign(input,'c.in');
assign(output,'c.out');
reset(input);
rewrite(output);
read(input,a,b,n);
for x:= 1 to n do
begin
if a*x mod n = b
then
p:=p+1;
end;
write(output,p);
close(input);
close(output);
end.