Ответ:
1
Объяснение:
...............................
И=0₁₀=0₂<span>
Д=1</span>₁₀=1₂<span>
Т=2</span>₁₀=10₂<span>
О=3</span>₁₀=11₂<span>
X=4</span>₁₀=100₂
ТИХОХОД=10 0100 1110 0111<span>₂=24E7</span>₁₆
Персональный компьютер лишний,потому что,там говорится о размерах компьютера,а это просто персональный.
Const
N = 10;
var
A: array[1..N] of integer;
function Fun: integer;
var
i, M: integer;
begin
writeln('Введите число M=');
readln(M);
for i := 1 to N do
if A[i] = M then Fun := i;
end;
procedure CreateMassive;
var
i: integer;
begin
for i := 1 to N do
begin
A[i] := Random(199) - 100;
write(A[i],' ');
end;
Writeln;
end;
begin
CreateMassive;
Writeln(Fun);
end.
вот вариант исправления который работает, хотя конечно не факт что он работает как там кто-то задумывал)))
не понятно было назначение функции Fun потому она делает поиск номера элемента равного М
а вообще глобальные переменные это зло. Так что проектирование тут в корне не верно
Program z1;
var n,P:integer;
begin
P:=0;
if ((n<30)and(n mod 2=0)) then
P:=n*(n-1);
writeln('P='P);
end.
программу не прогонял,поэтому не уверен.