Html программирование. Вывести поговорку про радугу, каждая фраза является заголовком на уровень выше предыдущего, располагается на новой строке и окрашены своим цветом
1 задача program proga; var st,st2:string; i:Integer; begin writeln('Введите число'); readln(st); for i:=1 to length(st) do begin st2:=st[i]; write(st2,' '); end; end. 2 задача program proga2; var st,st2:string; i,a:Integer; begin writeln('Введите возраст'); readln(a); if a>120 then writeln('Неверные данные'); if a=1 then writeln(a,' год'); if (a>1) and (a<5) then writeln(a,' года'); if((a mod 10 = 1) and (a div 10 <> 0 or 11 )) then writeln(a,' год'); if (a>=5) and (a mod 10 <> 2 or 3 or 4)and (a div 10 <> 10) then writeln(a,' лет'); if (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года '); if(a>104) and (a<110)then writeln(a,' лет'); end.
1 задача program proga; var st,st2:string; i:Integer; begin writeln('Введите число'); readln(st); for i:=1 to length(st) do begin st2:=st[i]; write(st2,' '); end; end. 2 задача program proga2; var st,st2:string; i,a:Integer; begin writeln('Введите возраст'); readln(a); if a>120 then writeln('Неверные данные'); if a=1 then writeln(a,' год'); if (a>1) and (a<5) then writeln(a,' года'); if((a mod 10 = 1) and (a div 10 <> 0 or 11 )) then writeln(a,' год'); if (a>=5) and (a mod 10 <> 2 or 3 or 4)and (a div 10 <> 10) then writeln(a,' лет'); if (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года '); if(a>104) and (a<110)then writeln(a,' лет'); end.
Примечание: т.к. в html всего 6 уровней заголовков, а цветов в радуге 7, то я добавил в качестве еще одного уровня тег p.
<html>
<head>
<style>
h6 { color: red; }
h5 { color: orange; }
h4 { color: yellow; }
h3 { color: green; }
h2 { color: deepskyblue; }
h1 { color: blue; }
p { font-size: 2.5em; font-weight: bold; color: purple; }
</style>
</head>
<body>
<h6>каждый</h6>
<h5>охотник</h5>
<h4>желает</h4>
<h3>знать</h3>
<h2>где</h2>
<h1>сидит</h1>
<p>фазан</p>
</body>
</html>