uses crt;
var i,count:integer;
a:array[1..15] of integer;
begin
randomize;
count:=0;
writeln('Первый екзамен сдало 15 человек ');
for i:=1 to 15 do
begin
a[i]:=random(5)+1;
if a[i] = 2 then inc(count);
end;
for i:=1 to 15 do writeln('Студент ',i,' написал на ',a[i],' балов '); //не обезательно
writeln('На екзамен допущено ',count,' человек!! ');
readln;
end.
I = 2 байта, K = 56 символов.
I = i*K = 2 * 56 = 112 байт
<span>Наиболее распространённый схематический параметр - это схематический индекс символа на схеме</span>
Программа просит числитель и знаменатель обеих дробей через пробел и выдает произведение
Переводит в биты:
356*1000=356000 байт
356000*8=2848000 бит
теперь посчитаем время:
2848000/16384=173.8 сек