Переведём скорость оптического канала в кб / с.
<em>Напишем рядом с ответом количество единиц первого множителя:
1*11=11 (К=1)</em>
<em>11*11=121 (К=2)</em>
<em>111*111=12321 (К=3)</em>
<em>1111*1111=1234321 (К=4)</em>
<em>11111*11111=123454321 (К=5)
</em><em>и т. д.</em>
Как мы видим, ответ напрямую зависит от количества единичек в первом множителе(К): от 1 до К и от К-1 до 1.
<em>Зная это свойство, можно не проводить громоздкие вычисления.</em>
Программу написал HRAshton. Я немного изменил
алг
нач
целтаб арр[1:3, 1:3]
цел к, п, ш
нц для ш от 1 до 3
нц для к от 1 до 3
арр[ш, к] := int(rnd(900)+100)
вывод арр[ш, к], ' '
кц
вывод нс
кц
нц для ш от 1 до 3
если ш<>2
то
п := арр[ш, 1]
арр[ш, 1] := арр[ш, 3]
арр[ш, 3] := п
все
кц
вывод нс, нс
нц для ш от 1 до 3
нц для к от 1 до 3
вывод арр[ш, к], ' '
кц
вывод нс
кц
кон
<span>
</span>
1)
var
s: string;
begin
writeln('Введите строку: ');
readln(s);
if pos('а', s) <> 0 then writeln('В строке есть буква "а"')
else writeln('В строке нет буквы "а"');
end.
2)
var
s: string;
i, a: byte;
begin
a := 0;
writeln('Введите строку: ');
readln(s);
for i := 1 to length(s) do if s[i] = 'м' then a := a + 1;
writeln('В строке буква "м" встречается ', a, ' раз(а)');
end.
3)
var
s: string;
begin
writeln('Введите строку: ');
readln(s);
while pos('и', s) <> 0 do delete(s, pos('и', s), 1);
writeln('Строка после удаления букв(ы) "и": ', s);
end.
По моему мнению здесь 26 треугольников еще один забыл обратный в центре, итого 27