1)
program gt;
var a,b:array[1..100]of integer;
n,m,i,q:longint;
begin
Randomize;
q:=0;
for i:=1 to 10 do
begin
a[i]:=random(200)-100;
if(a[i]>0)then begin
q:=q+1;
if(q=1)then a[i]:=400;
end;
end;
for i:=1 to 10 do
begin
if(a[i]<>400)then write(a[i],' ');
end;
end.
2)
program gt;
var a,b:array[1..100]of integer;
n,m,i,q:longint;
begin
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(200)-100;
if(a[i]<0)then begin
a[i]:=400;
end;
end;
for i:=1 to 10 do
begin
if(a[i]<>400)then write(a[i],' ');
end;
end.

0 0

4 года назад

Очень срочно !!!Файл размером 100 Кбайт передаётся через некоторое соединение со скоростью 1536 бит в секунду. Определите размер

Таня Павлова [165]

1) 100*2^13 : 3*2^9 = (25:3)*2^6 секунд
2) 768 *(25:3) *2^6 = 256*25*2^6 =25*2^14 бит = 25*2 Кбайта= 50 Кбайт

ИЛИ:
1) 1536 : 768 = 2 ( скорость уменьшилась в 2 раза)
2) 100 :2 = 50 Кбайт
Ответ 50

0 0

4 года назад

Сколько раз выполнится тело цикла? 1)For x:=3 to 8 do write ( '*' ); 2)For x:=1 to 1 do write ( '*' ); 3)For x:=5 to 3 do write

Евгения1972

1) x=3, 4, 5, 6, 7, 8 - 6 раз (8-3+1 = 6)
2) 1 раз
3) 0 раз (в цикле с "to" конечное значение параметра должно быть >= начального значения, а здесь 3<5)
4) x = 7, 6, 5, 4 - 4 раза
5) 1 раз
6) 0 раз (в цикле с "downto" конечное значение параметра должно быть <= начального значения, а здесь 3<5)

0 0

4 года назад

Найти результат в двоичной системе счисления :176(8)+24А(16)

Иманжан [14]

178(8)=8^2+7*8+6=64+56+6=126(10)

24A(16)=2*16^2+4*16+10=512+64+10=586(10)

126(10)+586(10)=712(10)

712(10)=1011001000(2)

0 0

3 года назад