Пронумеруем символы в исходной строке:
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 n,i,c,m,p:integer;
begin
m:=0;
p:=0;
writeln('Введите количество чисел.');
readln(n);
for i:=0 to n-1 do
begin
readln(c);
if c < 0 then m:=m+1
else if c = 0 then continue
else p:=p+1;
end;
if p < m then writeln('Отрицательных чисел больше, чем положительных.')
else if p > m then writeln('Положительных чисел больше, чем отрицательных.')
else writeln('Равное количество положительных и отрицательных чисел');
end.
Объяснение:
Переменные:
n - количество чисел, i - счетчик цикла for, c - считанное значение, m - счетчик отрицательных чисел, p - счетчик положительных чисел.
Считаем, что "0" - ни положительное, ни отрицательное число.
Program p1;
var a,b,c,d : integer;
begin
writeln('vvedite a,b,c,d');
readln(a,b,c,d);
if (a*b)>(c*d) then writeln(a*b) else (c*d);
end.
1 кувшином 3 л наливать воду в кувшин 8л. Наполнив большой кувшин, в маленьком останется 1л
2 вылить все из большого кувшина, перелить туда 1л из маленького и налить еще два маленьких кувшина в большой
Шаблон документа<span> – </span>это<span> текстовый </span>документ<span>, в котором уже есть все элементы, являющиеся “общими” для всех </span>документов<span> данного типа. Как правило, в </span>шаблоне<span> определены стили, которые применяются в этих</span>документах<span>; также можно включить в него колонтитулы, любой готовый текст и т.п.</span>