1). Намалювати круглий тулуб.
2).Намалювати круглу голову.
3).Намалювати ноги.
4).Намалювати руки.
5).Намалювати очі.
6).Намалювати носа, схожого на моркву.
7).Намалювати усмішку.
8).Намалювати відро на його голові.9).Намалювати шарф.
10).Намалювати куртку.
11).Намалювати рукавиці на руках.
12).Намалювати на ногах взуття.
13).Розфарбувати сніговика.
Е<span>сли сообщение текстовое (не ММС), то количество символов в тексте соответствует количеству информации в байтах (если умножить на 8, то получится количество информации в битах). А для заумных вычислений используйте формулу Хартли</span>
procedure trapezoid(a, sl, c: real; var b, S, h, d: real);
begin
b := 2 * sl - a;
h := Sqrt(c * c - Sqr((a - b) / 2));
S := h * (a + b) / 2;
d := Sqrt(sl * sl + h * h);
end;
begin
var a := 10;
var sl := 7;
var c := 5;
var b, S, h, d: real;
trapezoid(a, sl, c, b, S, h, d);
Print(b, S, h, d)
end.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(15, 0, 150);
a.Println;
Println('max =', a.Max);
Println('Нечетных:', a.Where(t -> t.IsOdd).Count);
Println('Сумма элементов, не превышающих 100:',
a.Where(t -> t <= 100).Sum);
Writeln('Число 20 в массиве',a.Contains(20)?'':' не',' встречается');
a.Sort;
a.Println
end.
<h3>66 101 58 108 113 143 23 57 36 0 20 27 35 6 138</h3><h3>max = 143 </h3><h3>Нечетных: 7 </h3><h3>Сумма элементов, не превышающих 100: 328 </h3><h3>Число 20 в массиве встречается</h3><h3>0 6 20 23 27 35 36 57 58 66 101 108 113 138 143</h3>
