я выбирал задания у которых больше всего .
надеюсь тебе это решение
1
var i:integer;
begin
for i:=2 to 100 do
if(i mod 2 = 0) then writeln(i);
end
2
Var
a: Real;
i,n: Integer;
Begin
Writeln
a:=0
for i:=1 to n do
a:= a + sgr(i);
end
Writeln
Readln
end.
6
Var
N1, N2, M, i: Longint
Begin
Write( Wwedite N1= `)
ReadLn (N2)
if (N1=0) and (N2=0) then writeLn;
if N1>N2 then M:= N1 else M:= N2;
i:=M -1;
Repeat
Inc(i);
Until ((i mod N1)=0) and ((i mod N2)=0);
WriteLn ;
end.
12.
program N99210889
const n=10
s: longint = 1
var i: byte;
begin
s: = s+ Term;
Term: = Term×2
end
writeln(s)
readln
end.
4. 8,192 сек
5. 2 мин
Объяснение:
4.
I = t * f * i * k
I - информационный объём аудио файла (размер файла, содержащего запись звука)
t - общая длительность звучания (секунды)
f - частота дискретизации (Гц, количество значений амплитуды звука, фиксируемых за одну секунду)
i - глубина звука (разрешение) (число бит, используемых для хранения каждого измеренного значения)
k - количество каналов записи (1 - моно, 2 - стерео и т.д.)
Дано:
k = 2 (стерео)
f = 64 000 Гц
i = 24 бит
I = 3 Мбайта = 25 165 824 бит
Найти:
t
I = t * f * i * k
t = I / (f * i * k)
t = 25 165 824 / (64 000 * 24 * 2) = 25 165 824 / 3 072 000 = 8,192 сек ≈ 8,2 сек
5.
I = V * t
I - объем переданной информации
V - скорость соединения (пропускная канала, в битах в секунду или подобных единицах)
t - время передачи
Дано:
I = 1,2 Мбайта = 10 066 329,6 бит
V = 83 886 бит/сек
Найти:
t (мин)
I = V * t
t = I / V
t = 10 066 329,6 / 83 886 ≈ 120 сек = 2 мин
8 бит = 1 байт
1 024 байт = 1 Кбайт
1 024 Кбайт = 1 Мбайт
1 мин = 60 сек