Каковы основные составляющие мультимедиа​

Текст

Аудио

Изображения

Анимация

Видео

Интерактивность

текст и аудио

program z1;

uses drawman;

begin

Field(19,4);

OnVector(1,3);

PenDown;

OnVector(1,0);

OnVector(0,-1);

OnVector(-1,-1);

OnVector(1,0);

PenUp;

OnVector(1,2);

PenDown;

OnVector(1,0);

OnVector(-1,-1);

OnVector(0,-1);

PenUp;

OnVector(3,2);

PenDown;

OnVector(1,0);

OnVector(0,-2);

OnVector(-1,0);

OnVector(0,2);

PenUp;

OnVector(2,0);

PenDown;

OnVector(1,0);

OnVector(0,-2);

OnVector(-1,0);

OnVector(0,2);

OnVector(0,-1);

OnVector(1,0);

PenUp;

OnVector(2,1);

PenDown;

OnVector(1,0);

OnVector(0,-1);

OnVector(-1,-1);

OnVector(1,0);

PenUp;

OnVector(1,2);

PenDown;

OnVector(1,0);

OnVector(0,-2);

OnVector(-1,0);

OnVector(0,2);

PenUp;

OnVector(2,0);

PenDown;

OnVector(1,0);

OnVector(0,-2);

OnVector(-1,0);

OnVector(0,2);

PenUp;

OnVector(2,0);

PenDown;

OnVector(1,0);

OnVector(0,-2);

OnVector(-1,0);

OnVector(0,2);

OnVector(0,-1);

OnVector(1,0);

PenUp;

OnVector(-18,-2);

end.

Объяснение:

Смотри картинку

Цикл работает с разными интервалами. Допустим от -1 до 1 будет 2. От 1 до 2 будет 3. От 5 до 11 будет 38.

Объяснение:

program Sum_cifr;

var i, x, a, b, S:integer;

begin

 readln(a, b);

 S:=0;

 for i:= a to b do

   begin

   

   x:=Abs(i);     // делаем положительным число, если оно отрицательное

   while x>0 do                    // цикл, в котором будет число

       begin                             //будет разбиваться на цифры

       

       S:= S+(x mod 10);    // отсекаем у числа последнюю цифру

       x:= x div 10;            //  и складываем, а после убираем последнюю

                                       // цифру у самого числа

       end;

   

   end;

 writeln(S)

end.