Уровень 1.
<body>
<p align=center><font color=blue size=4 face "Tahoma">
<b>Алгоритмы</b>
</font></p>
<p align=center><i>Основные блоки</i></p>
<img align=left src=bloc3.gif
width=200 height=100 hspace=40 vspace=10 alt="Блок Процесс">
<ul type="square">
<li>блок "модификация" (обозначает начало цикла);
</ul>
</body>
----
Уровень 2.
добавить
<ul>
Вставить фрагмент кода из задания.
</ul>
ТЕКСТ
добавляем заголовки таким образом:
<a name="one" >Язык С и С++</a>
ТЕКСТ
<a name="two" >Язык Pascal</a>
ТЕКСТ
<a name="three" >Basic</a>
ТЕКСТ
<a name="four" >Visual Basic</a>
ТЕКСТ
<a name="five" >FORTRAN</a>
ТЕКСТ
<a name="six" >ALGOL</a>
ТЕКСТ
Ира с синим, Света красные, Маша белые.
Вроде как то так, я точно не уверена...
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=ArrRandom(10); println(a);
for var i:=0 to 9 do
if a[i] mod 2 =0 then print(a[i]);
end.
Тестовое решение:
[57,42,71,42,53,88,86,80,87,74]
42 42 88 86 80 74
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
function IsPrime(n:integer):boolean;
begin
Result:=Range(2,Round(sqrt(n))).All(i->n mod i<>0)
end;
begin
var n:=9;
var a:=MatrixRandom(n,n,3,15);
var k:=0;
for var i:=0 to n-1 do begin
for var j:=0 to n-1 do begin
Write(a[i,j]:3);
if IsPrime(a[i,j]) then Inc(k)
end;
Writeln
end;
Writeln('Простых чисел: ',k)
end.
<u><em>Тестовое решение:</em></u>
12 15 13 5 8 5 11 14 9
7 7 14 10 5 10 9 12 3
8 8 10 7 12 14 7 6 9
13 13 7 6 4 9 13 10 11
15 4 11 12 11 4 12 8 9
7 6 14 5 10 15 6 7 9
4 7 6 14 13 5 11 13 3
4 4 5 7 12 10 14 9 11
7 12 13 8 10 6 8 3 15
Простых чисел: 32