Тыква помидор капуста огурец это овощи
А) тыква зеленый. Помидор зеленый. Огурец зеленый. Капуста тоже зеленый
Б) мяч лишний он красным цветом
Спасибо за внимание!!!
С точки зрения математики и информатики - любыми. Это вопрос предварительной договоренности в рамках конкретной задачи.
Если ответ не устраивает, то уточните: о множествах и объектах, используемых где именно, Вы спрашиваете.
<span>A[5]:=A[6]; - шестой элемент копируется в пятый и теперь </span><span>A[5]=8
A[6]:=A[5]; - пятый элемент копируется в шестой, но поскольку перед этим шестой копировался в пятый, то содержимое шестого не поменяется и остается равным 8.
Оба элемента будут равны 8 - вариант D
</span>
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.
var i:integer;
p:int64;
begin
p:=1;
for i:=1 to 100 do if i mod 10 = 5 then p:=p*i;
writeln(p);
end.
