Var
m:integer;
begin
read (m);
case m of
1: write ('Январь');
2: write ('Февраль');
3: write ('Март');
4: write ('Апрель');
5: write ('Май');
6: write ('Июнь');
7: write ('Июль');
8: write ('Август');
9: write ('Сентябрь');
10: write ('Октябрь');
11: write ('Ноябрь');
12: write ('Декабрь');
end;
end.

0 0

1 год назад

Впишите необходимые теги и текст, чтобы получился HTML-код для web-страницы, показанной на образце.(1 ,2 и 3 уровни)Тема гиперсс

олясик

Уровень 1.
<body>

Алгоритмы

Основные блоки
<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>
ТЕКСТ

0 0

4 года назад