Программа на языке Паскаль.
const N=30;
var i, s0, k, a: integer;
b: array [1..N] of integer;
begin
readln(a);
s0:=0;
k:=0;
randomize;
for i:=1 to N do
begin b[i]:=random(20001)-10001; {чтобы диапазон случайных чисел был от -10000 до 10000}
if (b[i]<0) then s0:=s0+b[i];
if (b[i]>0) and (b[i]<=a) then inc(k);
end;
if (s0<>0) then writeln(s0, ' - сумма отрицательных чисел')
else writeln('отрицательных чисел нет');
if (k<>0) then writeln(k, ' - количество положительных чисел, не превосходящих числа А')
else writeln('положительных чисел не превосходящих числа А, нет');
readln;
end.
<html>
<head>
<title>Название страницы</title>
</head>
<body>
<style>
body,html {
background-color:yellow;
}
table {
font-size:7px;
font-weight:bold;
}
</style>
<table>
<tr>
<td width="30%">ФИО</td>
<td width="30%">Хобби</td>
<td width="30%"><img src="ссылка на картинку" width="250" height="250"/></td>
</tr>
</table>
</body>
</html>
Треугольников 40
и 10 квадратов
160*30=4800 символов
Ответ: ученик получит 4800 символов
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:array of real;
a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
a.Where(t->Trunc(t) mod 3 <>0).Println
end.