Var a:array[1..10] of integer;
i,x:integer;
begin
write('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i],' ');
end;
WRITELN;
write('Что ищем?: ');
readln (x);
for i:=1 to 10 do if x=a[i] then write('A[',i,'] ');
end.
1.Перевезёт волка
2.Перевезёт капусту
3.Перевезет козу.
Ресурсы человеческого мозга рассчитаны на переработку информации в 16 бит
3x + 3x = 10x;
Если x = 0, то основание системы любое, иначе:
(3+3)x = 10x
3 + 3 = 10
Это будет выполнятся только в 6сс.
Ответ: с)