У улиток нет зуб потому что они слязняки
<u><em>Задача 1.</em></u>
var
f:Text;
n,nmax,nmin:integer;
begin
Assign(f,'input.txt'); Reset(f);
nmax:=-32786; nmin:=32767; {границы представления integer}
while not Eof(f) do begin
Readln(f,n);
if (n>0) and (n mod 2=0) then
if nmax<n then nmax:=n
else
if nmin>n then nmin:=n
end;
Close(f);
Assign(f,'output.txt'); Rewrite(f);
Writeln(f,nmin,' ',nmax);
Close(f)
end.
<u><em>Задача 2.</em></u>
const
m=100; { максимальное количество чисел в файле }
var
f:Text;
i,j,n,k:integer;
a:array[1..m] of integer;
begin
{ читаем данные из файла в массив }
Assign(f,'input.txt'); Reset(f);
i:=0;
while not Eof(f) do begin Inc(i); Readln(f,a[i]) end;
Close(f);
n:=i;
{ сортируем массив по возрастанию методом пузырька }
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then
begin k := a[j]; a[j] := a[j+1]; a[j+1] := k end;
{ заполняем файл из массива }
Assign(f,'output.txt'); Rewrite(f);
for i:=1 to n do Writeln(f,a[i]);
Close(f)
end.
<em><u>Вложение: пример файла input.txt </u></em>
64=2^i (^ - степень, если что);i = 6 бит - на один символ;7200*8/(4* 40) = 360 бит - каждая строка;Ну и чтобы найти, сколько символов в строке, то нужно 360/6 = 60 символов. Ответ: 60
1. В
2. А
3. Г
4. Д
5. Б
6. Г
7. 5
8. Г
Пусть вес одного символа = 1 байт = 8 бит
16*16*512*8 бит / (128*1024) бит/с = 8 секунд