Решить информатику дано f=44,1 кгц i=16 бит k=2 v=700 мб найти t=?

Question

Информатика: Решить информатику дано f=44,1 кгц i=16 бит k=2 v=700 мб найти t=?

Sen9l · Accepted Answer

Var
i,p,k1,k2:integer;
begin
Randomize;
Writeln('Вес учеников');
k1:=0; k2:=0;
for i:=1 to 26 do
begin
    p:=Random(31)+55;
    Write(p:3);
    if p<60 then Inc(k1)
    else if p>=75 then Inc(k2)
end;
Writeln;
Writeln('Легких- ',k1,', тяжелых- ',k2)
end.

Тестовое решение:
Вес учеников
75 72 62 85 84 60 79 65 78 67 68 72 56 76 57 59 73 56 82 59 79 57 62 85 57 58
Легких- 8, тяжелых- 9

Вариант со вводом данных:
var
i,p,k1,k2:integer;
begin
Writeln('Введите вес учеников');
k1:=0; k2:=0;
for i:=1 to 26 do
begin
    Read(p);
    if p<60 then Inc(k1)
    else if p>=75 then Inc(k2)
end;
Writeln('Легких- ',k1,', тяжелых- ',k2)
end.

Тестовое решение:
Введите вес учеников
75 72 62 85 84 60 79 65 78 67 68 72 56 76 57 59 73 56 82 59 79 57 62 85 57 58
Легких- 8, тяжелых- 9

MOGZ ответил