var
i,a,b:integer;
x: array[1..15] of integer;
begin
a:=0;
b:=0;
for i:=1 to 15 do
begin
begin
x[i]:=random(15);
write(x[i]:4);
end;
if (x[i]>=0)and(x[i] mod 3=0) then
b:=b+1;
end;
writeln;
writeln;
for i:=1 to 10 do
begin
a:=a+x[i];
end;
write('суммa = ',a);
end.
--{
<em>program zadacha (input, output) ; (ввод-вывод элементов массива}
var
a: array [1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(30) ;
writeln ('A(' I, ')=', a[i])
end
end.</em>
<em>}--</em>
Дано:
V1=3Мб
t1=60c
t2=20c
найти V2
сначала найдем скорость передачи файла, для этого
V/t=3/60=0,05 Мб/c
а теперь-то мы может найти размер файла
V2=скорость*t2=0,05*20=1 Мб переводим Мбайты в Кбайты это будет 1024 Кб.
84 кбайта = 14 (страниц) * 128 (строк) * x (символов) * 16 (бит)
84 кбайта = 86016 байт
16 бит = 2 байта
14 * 128 * 2 = 3584
86016 = x * 3584
x = 24 символа