1) Не верно
2) Верно
3) Не верно
4) Не верно
5) Верно
Var i:longint; m:array[1..10] of longint;
Begin
for i:=1 to 10 do
begin
read(m[i]);
if m[i] mod 2 = 1 then
m[i]:=m[i]*4 else
m[i]:=m[i]*3;
end;
for i:=1 to 10 do
write(m[i],' ');
<span>End.</span>
67 в десятичной = 103 в восьмиричной (просто 67 делить на 8 пока остаток будет получается меньше восьми)
X:= 0 x=0 y=0
x:= x+1 x=1 y=0
y:= x x=1 y=1
<span>x:= 2*y+2*x x=4 y=1</span>
В 20 веке был создан интернет