1) 70
2) 427
3)50
4) нет вопроса
5) 3400
6) 2200
7)277
8) 250
9) 533
10) 140
Пронумеруем символы в исходной строке:
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>
Var i:integer;
begin
for i:=10 downto 1 do
writeln(i);
end.
Название видеокартыНазвание монитораРазрешениеОбъём видеопамятиКоличество отображаемых цветовMDA — Monochrome Display AdapterMD720x35064 бита - 128 КбCGA — Color Graphics AdapterCD640x200128 КбHGC — Hercules Graphics CardMD +720x348128 КбEGA (1984)-Enhanced Graphics AdapterECD640x350128 битов - 512Кб16-64VGA (1987) — Video Graphics ArrayBCD640x480256 - 512 КбSVGA — Super VGABCD800x600256 Кб - 1 Мб256 - 16 млн.XGA — extended Graphics ArrayECD1600x12001 - 4 Мб
1250 Кбайт = 1250*1024 байт = 1250*1024*8 бит
Время передачи файла = 1250*1024*8/256000 = 40 с