Var n,k,i:integer;
begin
write('n = ');
readln(n);
k:=0;
for i:=1 to n do
if (i mod 3=0)and(i mod 6<>0)
then k:=k+1;
writeln('k = ',k);
end.
Пример:
<span>n = 100
k = 17</span>
1)принтер
2)графопостроитель
3)процессор
4)принтер
5)жесткий диск
6)системный блок
7)карта расширения
8)<span>Delete
9)цветной принтер</span>
#include<iostream>
void main()
{
<span> setlocale(LC_ALL, "rus");
</span><span> using namespace std;
</span><span> int A[2][5];
</span><span> int i, j,k = 1;</span>
<span> for (i = 0; i < 2; i++)
</span><span> {</span><span>
for (j = 0; j < 5; j++)
</span><span> {</span><span>
cin >> A[i][j];
</span><span> }
</span><span> }</span>
<span> for (i = 0; i < 2; i++)
</span><span> {
</span><span> for (j = 0; j < 5; j++)
</span><span> {</span><span>
if ((A[i][j] % 2 == 0) && (A[i][j] % 3 != 0))</span><span>
{
</span><span> k *= A[i][j];
</span><span> }
</span><span> }
</span><span> }</span>
<span> cout << "Произведение чисел, которые делятся на 2 без остатка и не делятся на 3 = " << k;</span>
1 способ
type
massiv = array [2..21] of integer;
var
mass : massiv;
i, summa : integer;
begin
summa := 0;
for i:=2 to 21 do
begin
mass[i]:=i;
if (mass[i] mod 2 = 0) then
summa := summa + mass[i]
end;
writeln('Сумма четных эл-тов равна : ', summa);
readln;
end.
2 Способ
program z;
var
a : array[2..21] of integer;
i,summ : integer;
b : array[2..21] of integer;
begin
for i:= 2 to 21 do
begin
a[i]:=i;
end;
for i:=2 to 21 do
begin
if a[i] mod 2 = 0 then
begin
b[i]:=a[i];
end;
end;
summ:=0;
for i:=2 to 21 do
begin
summ:=summ+b[i];
end;
Writeln(summ);
readln;
end.
Internet Protocol (IP) обеспечивает маршрутизацию IP-пакетов, то есть доставку информации от компьютера-отправителя к компьютеру-получателю.(отправляет)
Transmission Control Protocol (TCP), то есть транспортный протокол, обеспечивает разбиение файлов на IP-пакеты в процессе передачи и сборку файлов в процессе получения. (собирает)
Рисунок: Фрагментация IP-пакетов при передаче между сетями с разным максимальным размером пакетов: К1 и 01 - канальный и физический уровень сети 1; К2 и Ф2 - канальный и физический уровень сети 2.
<span><span>Цель: Функции уровня IP входит разбиение слишком длинного для конкретного типа составляющей сети сообщения на более короткие пакеты с созданием соответствующих служебных полей, нужных для последующей сборки фрагментов в исходное сообщение.</span></span>