Const n=10;var a:array [1..n] of integer;i,max:integer;beginrandomize;for i:=1 to n dobegina[i]:=random(100);writeln(a[i]);end;max:=0;for i:=1 to n dobeginif a[i]>max then beginmax:=a[i];end;end;writeln('Max = ',max);end.
// PascalABC.NET 3.0, сборка 1128
uses
System.Text.RegularExpressions;
begin
var s:='Пингвинёнок Пороро. Пороро - поросёнок';
Writeln(RegEx.Matches(s,'ро').Count) // количество 'ро'
end.
<u><em>Тестовое решение:</em></u>
5
// PascalABC.NET 3.0, сборка 1128
uses
System.Text.RegularExpressions;
begin
var s:='Пингвинёнок Пороро. Пороро - поросёнок';
var s1:=ReadLnString('Введите контекст для поиска:');
Writeln(RegEx.Matches(s,s1).Count)
end.
<u><em>Тестовое решение:</em></u>
Введите контекст для поиска: оро
3
В научно-технических статьях, в учебниках, в справочниках знаки формальных языков встречаются постоянно.
Это небольшие рисунки, схемы, пиктограммы. Они применяются для сокращения текстов, для выражения закономерностей, для описания различных структур.
Примерами таких языков служат язык математических формул, нотная грамота, языки программирования и т.д.
Таким образом, знаки формальных языков можно встретить в текстах на естественных языках, например, в учебниках математики, в справочниках по химии, в самоучителях игры на музыкальных инструментах, в книгах по программированию.
В задании не указано - требуется ли использовать форму или нет. Вариант документа с формой:
<HTML>
<HEAD>
<SCRIPT>
<!--
function btnClick(n)
{
if (n>5) r=n*n;
else if (n<5) r=n-2; else r=Number(n)+1;
document.frm.res.value=r;
}
//-->
</SCRIPT>
</HEAD>
<BODY>
<H1>Документ с JavaScript</H1>
<FORM name=frm>
Введите число
<INPUT type=text name=num size=5 value=0>
<INPUT type="button" name="bt" value="Щелкни здесь!"
onClick="btnClick(num.value);">
Результат:
<INPUT type=text name=res size=5 value=0>
<BR><INPUT type=reset VALUE="Сброс">
</FORM>
</BODY>
</HTML>