1 дискета
2cd rom
3 dvd rom
4 флеш
5 жесткий диск
1)
var
i,k:integer;
a:array [1..14] of integer;
begin
k:=0;
for i:=1 to 14 do
begin
a[i]:=random(46)-15;
write(a[i]:3);
if a[i] mod 2=0 then k:=i;
end;
if k>0 then
begin
for i:=k to 13 do a[i]:=a[i]+1;
a[14]:=0;
end;
writeln;
for i:=1 to 14 do write(a[i]:3);
end.
2)
var
i,k:integer;
a:array [1..14] of integer;
begin
for i:=1 to 14 do
begin
a[i]:=random(46)-15;
write(a[i]:3);
end;
for i:=1 to 7 do
begin
k:=a[i];
a[i]:=a[i+7];
a[i+7]:=k;
end;
writeln;
for i:=1 to 14 do write(a[i]:3);
end.
Смотрите решение с исправлением на прикреплённом файле
1 байт = 8 бит
8 бит - 2^8 = 256 цветов.
Парень сидит и разговаривает по телефону по рисунку бы я сказала что он очень встревожен или удивлён от разговора видимо его что-то взволновало или встревожило или он услышал какую-то тему которая его удивила