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.
Файл размером 15 Кбайт передаётся через некоторое соединение за 60 секунд. Определите, за сколько секунд можно передать этот же файл через соединение, скорость которого на 2048 бит в секунду больше. В ответе укажите одно число — количество секунд. Единицы измерения писать не нужно.
Решение.
Размер переданного файла = время передачи · скорость передачи. Скорость передачи файла в первом случае 15360/60 = 256 байт/сек. Скорость передачи во втором случае на 2048 бит = 256 байт в секунду больше, чем в первом, следовательно, исходный файл можно передать за 15360 / 512 = 30.
Объяснение:
возьми фотошоп и картинку и фильтр мозаика готово)
Объяснение: