Используя текст из файла Вредные привыч- doсx, создайте фрагмент сайта «Вредные привычки», состоящий из семи страниц: лавная страница ргivуchki.htm coдержит заголовок перво- го уровня и нумерованный список вредных привычек. Эле- мент списка - гиперссылка на страницу, описывающую вред данной привычки; страницы 1.htm, 2.htm, 3.htm, 4.htm, 5.htm, 6.htm coдержат описания вреда наркотиков, алкоголя, курения, ненорматив- ной лексики, недосыпания, диет. Каждая из этих страниц содержит название (заголовок первого уровня), абзацы текста и гиперссылку на главную страницу privychki.htm. Результат может выглядеть так, как показано на рисунке 55 (главная страница сайта Privychki.htm) и рисунке 56 (страница 5.htm).
Жили собі два півники.один працьовитий,а другий ледар.колись завелась там лесичка. є перший,а другому всеодно.нічого мені вона не зробить.потім настала ніч.всі позасинали.а крадійка ока не зімкнула,крадеться непомітно до ледаря.цап! біжить перекидається.другий півник за нею.втекла,нічого за мною повернеться.він змайстрував пастку.чує крадеться,в раз і вона у клітці.питає: -де півник? за подвір*ям відпусти мене,а я заберуся звідсіля.побіг півник визволив ледаря й мовив: -ось бачиш ти на печі грівся із бідою стрівся.зрозумів все ледарь і став працьовитим.
ответ:
объяснение:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
const n=23; m=40; //n-ряды, m-места
var
a: array[1..n,1..m] of integer; //зрительный зал
i,j,k: integer;
begin
randomize;
writeln('зрительный зал: ');
write('м/р');
for i: =1 to m do write(i: 3);
writeln;
for i: =1 to n do begin
write(i: 3);
for j: =1 to m do begin
a[i,j]: =ord(random(10)> 0); write(a[i,j]: 3); //read(a[i,j]); я ввожу гадалкой, т.к. руками вбивать 920 цифирь не входит в мое понятие героизма
end;
writeln;
end;
repeat
write('в каком ряду смотреть свободные места? ');
readln(i);
until (i> 0) and (i
k: =0;
for j: =1 to m do k: =k+ord(a[i,j]=0); //cчитаем свободные места
write('в ряду ',i);
if k> 0 then writeln(' есть свободные места в количестве ',k,' шт.') else
writeln(' свободных мест нет');
end.