Пронумеруем символы в исходной строке:
1-И, 2-Н, 3-Ф, 4-О, 5-Р, 6-М, 7-А, 8-Т, 9-И, 10-К, 11-А.
Перепишем алгоритм, раскрывая циклы и подставляя значения.
<span>m := 10
b := Извлечь(</span><span>'ИНФОРМАТИКА', 10) 'K'⇒b
k:=4
с := Извлечь(</span>'ИНФОРМАТИКА', 4)<span> 'O'⇒c
</span>b := Склеить(b, с)<span> 'KO'⇒b
</span><span><span><span>k:=5
с := Извлечь(</span>'ИНФОРМАТИКА', 5)<span> 'Р'⇒c
</span>b := Склеить(b, с)<span> 'KOР'⇒b
</span></span>k:=1
с := Извлечь(</span>'ИНФОРМАТИКА', 1)<span><span> 'И'⇒c
</span>b := Склеить(b, с)</span><span> 'KОРИ'⇒b
</span><span><span>k:=2
с := Извлечь(</span>'ИНФОРМАТИКА', 2)<span><span> 'Н'⇒c
</span>b := Склеить(b, с)</span><span> 'KОРИН'⇒b
</span></span><span><span>k:=3
с := Извлечь(</span>'ИНФОРМАТИКА', 3)<span><span> 'Ф'⇒c
</span>b := Склеить(b, с)</span> 'KОРИНФ'⇒b</span>
Переменная b примет значение строки <span> 'KОРИНФ'</span>
Если 4800 бод это 4800 бит/с, то
4800*20=96000 бит будет передано за 20 с
96000/8=12000 символо нужно передать (т.к. КОИ-8 8-ми битная кодировка)
12000/1500=8 страниц
Var s,t,n:integer;
begin
writeln('введите n>999');
readln(n);
s:=(n div 100);
if s>10 then s:=s mod 10;
t:=(n div 1000);
writeln('количество сотен-->',s);
writeln('количество тысяч-->',t);
end.
V=4096 бит/с; t=10 с; I=40960 бит
40960 бит/5120 симв. = 8 бит/симв, т.е. 1 симв. =8 бит, значит мощность алфавита = 2 в 8 степени, т.е. 256
Ответ:256 символов
Program n1;
var i,sum: integer;
begin
sum:=0;
for i:=100 to 999 do if i mod 47=43 then sum:=sum+i;
write(sum);
end.