Var a:string;
begin
writeln('Введите строку');
readln(a);
write(a[2]);
write(a[length(a)-1]);
<span>end.
</span>
<span>Скорость = 28800 бит/с </span>
<span>объем информации= 60*30*100 = 180000байт = 1440000 бит </span>
<span>время -это объем разделить на скорость -то есть 1440000/28800= 50с </span>
Ответ:
Объяснение:
program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.
программу проверил все работает
1.
var a,b,i,n,min:integer;
begin
writeln('Input value');
read(a);
min:=a;
for i:= 1 to 2 do begin
writeln('Input value');
read(a);
if min>a then min:=a;
end;
writeln('min = ',min);
<span>end.
2.
var a,b,c:integer;begin
writeln('Input a');
read(a);
writeln('Input b');
read(b);
writeln('Input c');
read(c);
a:=a*b*c;
writeln('prod = ',a);
end.<span>
</span></span>
1)
64*16*256 = 262144байт (Не умножал на 8 бит, т.к потом в любом случае делить на 8, чтобы получить байты)
262144:1024=256 кБайт
Ответ: Размер статьи 256 килобайт
2)
40*48*24*2 = 92160байт (16 бит 1 символ, далее пришлось бы делить на 8, отсюда *2)
92160:1024 = 90кБайт
Ответ: Информационный объём статьи 90 килобайт