Я не совсем понял, зачем тебе тут randomize timer, но не суть. Сделал все в точности по коду.
Анимации бывают в графическом,мультипликационном виде
Виды редакторов растровою анимацию: paint,фотошоп,corel
12-x=y (За x принимаем то, сколько съел Мундрунчик, а за y то, сколько осталось)
12-y=x
x+y=12
У них осталась одна коробка,,,(12 штук)
1) -
2) 20 18 14 8 0 -10 -22 -36 -52 -70
3) 4
код полностью
var
a: array[1..10] of integer;
i, k: integer;
begin
for i := 1 to 10 do
begin
a[i] := 20 - i * (i - 1);
write(a[i], ' ');
end;
writeln;
K := 0;
for i := 1 to 10 do
if a[i] > i then k := k + 1;
Write(k);
writeln;
end.
1) 50 * 2 байта = 100 байт - длина в кодировке <span>Unicode
2) 8 бит = 1 байт
50 * 1 байт = 50 байт длина сообщения в кодировке КОИ-8
3) 100 - 50 = 50 байт - на столько уменьшилась длина сообщения</span>