Самый простой способ ( ток он будет не в ворде) это с помощью языка HTML. Там довольно таки просто я на нем сайт делала.
Здесь основнные теги - https://html5book.ru/html-tags/
Ну и на ютубе есть видеоуроки.
<u>1. Вот так это нужно решать по-современному</u>
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
Writeln('k=',ArrRandom(15,1,20).Println.Count(x->x>10))
end.
<u><em>Тестовое решение</em></u>
4 16 14 9 11 18 17 14 14 15 1 1 9 10 15
k=9
<u>2. А вот так учат решать в школе...</u>
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
var
a:array[1..15] of integer;
i,k:integer;
begin
Randomize;
k:=0;
for i:=1 to 15 do begin
a[i]:=Random(20)+1;
Write(a[i],' ');
if a[i]>10 then k:=k+1
end;
Writeln;
Writeln('k=',k)
end.
<u><em>Тестовое решение:</em></u>
18 15 7 6 3 3 10 6 6 15 2 16 16 2 12
k=6
Сначала нужно найти количество строк в пяти страницах . 24×5=120 строк. Далее следует выяснить сколько всего символов в этих строках. 55×120=6600 символов, т.е. 6600 байт. Затем перевести в более большую единицу измерения: Килобайты. Поскольку 1 Кб=1024 байт, надо 6600÷1024=6 Килобайт и 456 байт в остатке.
Ответ: 6600 байт или 6 килобайт и 456 байт - объем текстового документа.
Алфавит не пригодился)))
{1 вариант}
var otr, vozr: byte;
begin
writeln('введите возраст');
readln(vozr);
case vozr do
6,7: otr:=5;
8,9: otr:=4;
10,11: otr:=3;
12,13: otr:=2;
14,15: otr:=1;
end;
writeln('Ваш отряд', otr);
end.
{2 вариант - более простой}
var otr, vozr: byte;
begin
writeln('введите возраст');
readln(vozr);
otr:=5 - vozr div 2 + 3;
writeln('ваш отряд', otr)
end.
1991
1231324564556465465465