Var i, j, c: integer; begin c := 0; for i := 100 to 999 do if(((strtoint(i.ToString[1])) < (strtoint(i.ToString[2]))) and ((strtoint(i.ToString[2])) < (strtoint(i.ToString[3] then c := c + 1; write(c); end.
Исходная цепочка ЛОМ 1-й шаг ЛОМ 2-й шаг ЛОММОЛ 3-й шаг ЛОММОЛН 4-й шаг ЛОММОЛН 5-й шаг ЛОММОЛННЛОММОЛ 6-й шаг ЛОММОЛННЛОММОЛО Результат ЛОММОЛННЛОММОЛО Количество букв «О» 5
4.
Исходная цепочка КОЛ 1-й шаг Л 2-й шаг ЛЛО 3-й шаг ЛЛОК Результат ЛЛОК
5.
Номер строки Строка 1 1 2 21 3 312 4 4213 5 53124 6 642135 .............. 9-я строка будет оканчиваться на четные цифры от 8 вниз 2468
1шаг алгоритма. а) записывается исходная цепочка символов, после нее записывается исходная цепочка символов в обратном порядке КОМ+МОК = КОММОК б) затем записывается буква, следующая в русском алфавите за той буквой, которая в исходной цепочке стояла на последнем месте (за буквой М в русском алфавите следует буква Н) КОММОК+Н = КОММОКН 2 шаг алгоритма. а) записывается исходная цепочка символов, после нее записывается исходная цепочка символов в обратном порядке КОММОКН+НКОММОК = КОММОКННКОММОК б) затем записывается буква, следующая в русском алфавите за той буквой, которая в исходной цепочке стояла на последнем месте (за буквой Н в русском алфавите следует буква О) КОММОКННКОММОК+О = КОММОКННКОММОКО ответ: количество букв О в полученной последовательности = 5
i, j, c: integer;
begin
c := 0;
for i := 100 to 999 do
if(((strtoint(i.ToString[1])) < (strtoint(i.ToString[2])))
and ((strtoint(i.ToString[2])) < (strtoint(i.ToString[3]
then c := c + 1;
write(c);
end.