var i,A,n,sum,v:integer;beginwrite('Введите заданное А'); readln(A);write('Введите число вводов n'); readln(n);for i:= 1 to n dobeginwrite('Введите число'); readln(v);if v > A then sum:= sum +v;end;write('Сумма = ', sum);<span>end.</span>
Var S,i:integer;
Begin
S:=0;
For i:= 10 to 99 do
S:=S+i;
WriteLn('S = ',S);
End.
Сущ.-кошка
несущ.-дерево,машина, яблоко
1.
1.2,5 Мбайт = 2,5*1024 Кбайт = 2560 Кбайт
Кол-во документов, которые сможет записать Никита:
2560/197 = 12 (останется 196 Кбайт)
При сжатии в 8 раз объем документа будет:
197/8 = 24,625 Кбайт = 25 Кбайт (для хранения файла используется целое число Кбайт)
Кол-во документов, которые сможет записать Юра:
2560/25 = 102 (останется 10 Кбайт)
Ответ: Никита сможет записать на носитель 12 документов, а Юра 102 документа.
2.
При использовании 64-символьного алфавита для хранения 1 символа требуется log(2)64 = 6 бит.
Для 1 страницы:
128*32*6 бит = 2^7*2^5*2*3/8 байт = 2^10*3 байт = 3 Кбайта
Количество страниц: 240/3=80
Время распечатки = 80/10=8 мин
При использовании алфавита с 64/4=16 символами на 1 символ требуется log(2)16=4 бит
Для 1 страницы:
128*32*4 бит = 2^7*2^5*2^2/8 байт = 2^11 байт = 2 Кбайта
Количество страниц: 240/2=120
Время распечатки = 120/(10*2)=6 мин
Ответ: 8 мин, 6 мин.
