uses crt;
var i,min,s:integer;
a:array[1..60] of integer;
begin
s:=0;
for i:=1 to 60 do a[i]:=random(35)+1;
min:=a[1];
for i:=1 to 60 do if min > a[i] then min:=a[i];
for i:=1 to 60 do if a[i] = min then inc(s);
writeln(s,' books for price = ',min,' ru.');
end.
Пусть каждый символ кодируется 16 битами, что составляет 16/8=2 байта.
Тогда каждая из первой половины страниц потребует для кодирования 2×64×48 = 2¹×2⁶×(3×2⁴) = 3×2×2¹⁰ байт = 6 Кбайт, а все эти страницы займут 6×6=36 Кбайт
Каждая из второй половины страниц потребует для кодирования 2×64×24 = 2¹×2⁶×(3×2³) = 3×2¹⁰ байт = 3 Кбайт, а все эти страницы займут 6×3=18 Кбайт.
Информационный объем реферата составит 36+18 = 54 Кбайта
Он нужен для хранения данных
Var x,y,z:longint;
begin
writeln(' TEST');
writeln(' выберите верный вариант ответа 1,2 или 3');
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
if (y=3)then write('ваша оценка 5');
if (y=2)then write('ваша оценка 3');
if (y=1)then write('ваша оценка 2');
end.
P.S.прошу проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале
Орёл - зрение, Волк обоняние, Летучая мышь - слух, Крот - осязание.