Var
A, B: array [1 .. 6, 1 .. 6] of byte;
C, D: array [1 .. 6] of byte;
M: array [1 .. 12] of byte;
i, j, MIN, MAX, evenCountC, evenCountD: byte;
begin
randomize;
for j := 1 to 6 do
begin
MAX := 0; MIN := 100;
evenCountC := 0; evenCountD := 0;
for i := 1 to 5 do
begin
A[i, j] := random(20);
B[i, j] := random(20);
if A[i, j] > MAX then MAX := A[i, j];
if B[i, j] < MIN then MIN := B[i, j];
end;
C[j] := MAX;
D[j] := MIN;
end;
writeln(' ***Матрица A***');
for i := 1 to 5 do
begin
for j := 1 to 6 do write(A[i, j]:4);
writeln;
end;
writeln;
writeln(' ***Матрица B***');
for i := 1 to 5 do
begin
for j := 1 to 6 do write(B[i, j]:4);
writeln;
end;
writeln;
writeln('***Вектор C***');
for i := 1 to 6 do
begin
writeln(C[i]:7);
if C[i] mod 2 = 0 then evenCountC := evenCountC + 1;
end;
writeln('Количество четных элементов в векторе C = ', evenCountC);
writeln;
writeln('***Вектор D***');
for i := 1 to 6 do
begin
writeln(D[i]:7);
if D[i] mod 2 = 0 then evenCountD := evenCountD + 1;
end;
writeln('Количество четных элементов в векторе D = ', evenCountD);
if evenCountC > evenCountD then
begin
writeln('Добавляем вектор C к матрице A.');
for i := 1 to 6 do A[6, i] := C[i];
writeln(' ***Измененная матрица A***');
for i := 1 to 6 do
begin
for j := 1 to 6 do write(A[i, j]:4);
writeln;
end;
end
else
begin
writeln('Объединяем два вектора C и D.');
writeln('Новый вектор M');
for i := 1 to 6 do M[i] := C[i];
for i := 7 to 12 do M[i] := D[i - 6];
for i := 1 to 12 do writeln(M[i]:7);
end;
readln;
end.
50 и 25
Наим.общ. Дел. - 25
Кратное- 50
Program abc;
var
n:integer;
begin
Write('Введите трёхзначное число: ');
readln(n);
Writeln('В данном числе: ',n div 100,' сотен(-я), ',(n div 10) mod 10,' десятков(-ок, -а), ', n mod 10, ' единиц(-а).');
<span>end.</span>
120 получится
F:= 1*1*2*3*4*5=120
1. Почтовый клиент (используя инкапсуляцию, почтовый клиент формирует пакеты для отправки на низких уровнях).
2. Почтовый клиент пересылает письмо на почтовый сервер отправителя.
3. Почтовый сервер отправителя ищет данные о DNS-зоне получателя.
4. Почтовый сервер отправителя ищет сведения о почтовом сервере получателя.
5. Почтовый сервер отправителя высылает на почтовый сервер получателя письмо.
6. Почтовый сервер получателя помещает письмо в ящик получателя.
7. Получатель при запуске почтового агента получает уведомление о доставке письма.