1.
а) обработка;
б) получение;
в) запоминание;
г) обмен;
д) отправка;
е) запись;
2. Редактор газеты, журналист, специалист CaLL центра.
В libre office и open office - Writer. Остальные программы перечислили ранее.
1) var A, B: array[1..25] of integer;
i, x: integer;
begin
writeln('введите элементы массива A: ');
for i := 1 to 25 do begin
read(A[i]);
if A[i] mod 3 = 0 then
begin
x := x + 1;
B[x] := A[i];
end;
end;
write('элементы массива A, кратные трём: ');
for i := 1 to x do begin
write(B[i], ' ');
end;
end.
2) var A, B, C: array[1..10000] of integer;
i, n, x: integer;
begin
writeln('введите размеры обоих массивов: ');
read(n);
write('введите элементы массива A: ');
for i := 1 to n do begin
x := x + 1;
read(A[i]);
end;
write('введите элементы массива B: ');
for i := 1 to n do begin
read(B[i]);
end;
write('элементы массива C: ');
for i := 1 to x do begin
C[i] := A[i];
write(C[i], ' ');
C[i] := B[i];
write(C[i], ' ');
end;
end.
'Не ошибается тот, кто ничего не делает, хотя это и есть его основная ошибка.' - 76 символов по 1 байту. Объем равен 1*76 байт
Var a,b:integer;
begin
Writeln('Введите два числа через пробел');
Read(a,b);
If a<b then write('1') else write('2');
<span>End.</span>