1). Намалювати круглий тулуб.
2).Намалювати круглу голову.
3).Намалювати ноги.
4).Намалювати руки.
5).Намалювати очі.
6).Намалювати носа, схожого на моркву.
7).Намалювати усмішку.
8).Намалювати відро на його голові.9).Намалювати шарф.
10).Намалювати куртку.
11).Намалювати рукавиці на руках.
12).Намалювати на ногах взуття.
13).Розфарбувати сніговика.
var a: array[1..10] of integer;
i,imin,min: integer;
begin
randomize;
write('массив: ');
for i:=1 to 10 do begin
a[i]:=random(201)-100;
write(a[i],' ');
end;
writeln;
min:=a[1];
imin:=1;
for i:=2 to 10 do
if(a[i]<min) then begin
min:=a[i];
imin:=i;
end;
write('наименьший элемент: a[',imin,']=',min);
end.
Делалось из рассчета что 4 записывается 4 единицами и тп
<span>Для N = 3500 и М = 5 будет выбрано 216 чисел</span>
const
symbols_count = 7;
symbols: array[1..symbols_count] of integer = (1000, 500, 100, 50, 10, 5, 1);
var
num, n, m, c, i, j, res: integer;
begin
readln(n, m);
for i := 1 to n do
begin
num := i;
c := 0;
for j := 1 to symbols_count do
if num >= symbols[j] then
begin
c := c + num div symbols[j];
num := num mod symbols[j];
end;
if c = m then begin
{writeln(i);}
res := res + 1;
end;
end;
writeln(res);
end.
Program enot;
const n= 5;
Var a: array [1..n] of integer;
c:real;
i,max,s:integer;
begin
for i:= 1 to n do begin
read (a[i]);
s:=s+a[i];
end;
c:=s/n;
for i:= 1 to n do
if a[i]>c then write(a[i], '; ');
<span>end.</span>
92*2018=185656 точек
по формуле N=2^i, находим i, 2=2^i отсюда i=1
по формуле вычисляем объем V=K*i
V=185656*1=185656 бит=23207 байт=22Кбайт
ответ: 22
