Дан фрагмент программы: a=14
b=24
b= -a//2*b
if a c=b-a
else:
c=a-2*b
Введите в поле ввода результат, получившийся после выполнения третьей строки

Введите в поле ввода результат, получившийся после выполнения всей программы (значение переменной c)

1)

var

a,b:array [1..100] of integer;

i,j,k,a,b,f:integer;

begin

randomize;

readln(a);

readln(b);

k:=0;

for i:=1 to 20 do

begin

a[i]:=random(135)-45;

f:=0;

for j:=a to b do

if (a[i]=j) and (a[i] mod 7 =0) then f:=1;

if f=0 then

begin

k:=k+1;

b[k]:=a[i];

end;

end;

for i:=1 to k do

writeln(b[i]);

end.

2)

var

a,b:array [1..100] of integer;

i,j,k:integer;

begin

randomize;

readln(k);

j:=0;

for i:=1 to 20 do

begin

a[i]:=random(135)-45;

writeln(a[i]);

for i:=1 to 19 do

begin

if a[i]*a[i+1]>0 then

begin

j:=j+1;

b[j]:=a[i];

j:=j+1;

b[j]:=k;

end

else

begin

j:=j+1;

b[j]:=a[i];

end;

end;

j:=j+1;

b[j]:=a[20];

for i:=1 to j do

writeln(b[j]);

 

3)

var

a,b:array [1..20] of integer;

i,j,k1,k2:integer;

begin

randomize;

readln(k1);

readln(k2);

if k1<k2 then

begin

for i:=1 to 20 do

begin

a[i]:=random(135)-45;

writeln(a[i]);

end;

for i:=1 to k1-1 do

b[i]:=a[i];

for i:=k2+1 to 20 do

b[i]:=a[i];

j:=k2;

for i:=k1 to k2 do

begin

b[j]:=a[i];

j:=j-1;

end;

for i:=1 to 20 do

writeln(b[i]);

end;

end.

 

Как мы знаем, 1 кбайт памяти занимает 1024 байт памяти. А 1 байт, в свою очередь, занимает 8 бит. Зная это, найдем время, за которое файл размером 64 кбайт сможет передать некоторое соединение. Переведем 64 кбайт в байты [1024*64=65536] получим 65536 байт. Теперь переведем скорость передачи файла в байты [2048/8=256] получим 256 байт/сек.
Делим 65536 байт на 256 байт/сек. получаем 256 сек.
Мы узнали время. Теперь 512 бит переведем в байты [512/8=64] получим 64 байт. 64 байт умножаем на 256 сек. получаем 16384 байт, ответ на задачу.
Если требуется написать ответ к килобайтах, переведем 16384 байт в кбайты.
16384 делим на 1024 получаем 16 кбайт.
В ответе пишем: 16384 байт либо 16 кбайт, в зависимости от того, что от нас требуют написать.