Uses GraphABC;
begin
Pen.Color := clblue;
brush.Color :=clRed;
DrawRectangle(100,200,400,400);
fillRect(100,200,400,400);
moveto(90,200);
lineto(100,150);
lineto(400,150);
lineto(410,200);
lineto(90,200);
FloodFill(100,180,clblue);
brush.Color := clCyan;
fillRect(150,250,200,300);
fillRect(250,250,300,300);
<span>end.</span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadlnInteger('Количество слов в массиве:');
var a:=ReadArrString('Введите слова, каждое с новой строки:',n);
var s:=a.Select(w->(w,w.Length));
var lm:=s.Max(t->t[1]);
s.Where(t->t[1]=lm).Take(2).Select(t->t[0]).JoinIntoString('')
.Where(c->c in 'AEIOUY').Distinct.Println
end.
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.щ
28. Ъ
29.ы
30.ь
31.э
32.ю
33.я
Задание 1.
Ответ под цифрой 4
Задание 2.
Ответ под цифрой 4.
Задание 3.
Найдем количество символов в статье:
<span>64·40·64 = 26·5·23·26 = 5 · 215. </span>
Один символ кодируется одним байтом, 210 байт составляют 1 килобайт, поэтому информационный объем статьи составляет
<span>5·215 байт = 5·25 килобайт = 160 Кб. </span>