const n = 10;
var
mas: array [1..n] of integer;
i,j,h:integer;
begin
randomize;
for i := 1 to n do
begin
mas[i] := random(3);
write(' ',mas[i],' ');
end;
writeln();
for i := 1 to n - 1 do
for j := 1 to n - i do
if(mas[j] = 0) then
begin
h := mas[j];
mas[j] := mas[j + 1];
mas[j + 1] := h;
end;
for i := 1 to n do
write(' ',mas[i],' ');
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 мин.
Var s:string; k,i:integer;
begin
write('Введите текст: '); readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='a' then k:=k+1;
writeln('В заданном тексте буква а встречается ',k,' раз');
end.
9800p. - 100%
х-102,04%
102,04 - 100=2,04%
<span>ответ: 2,04% . Алгоритм с сожалению построить не могу. Извени. </span>
{1. Заполните массив L [9] с клавиатуры числами 105, 126, 134, 176, 181, 193, 132, 144, 156 и ввести на экран }
var L:array [1..9] of byte;
n,i:byte;
begin
N:=9;
{считываем с клавиатруры N чисел}
writeln('введите масссив');
for i:=1 to n do read(L[i]);
writeln;
writeln('Массив:');
{вывод на экран массива}
for i:=1 to n do write(L[i]:7);{7 позиций под число}
end.
{2 . заполнить массив К [22] случайными числами в интервале от 2 до 42 и вывести его на экран.}
var K:array [1..22] of byte;
n,i:byte;
begin
N:=22;
randomize;
for i:=1 to n do k[i]:=2+random(41);{если включая [2,42]}
writeln;
writeln('Массив:');
{вывод на экран массива}
for i:=1 to n do write(K[i]:7);{7 позиций под число}
end.