Либо я чего то не понял, либо все так просто как я понял. Рас мы в информатике то под текстами и языками понимаются кодировки и раскладки верно? Если действительно так то лишь в том случае когда кодировка предусматривает это, проще говоря русские символы можно запихнуть в юникод и в виндовс1251, а вот с другими будут несосотыковки и явные проблемы...ну это если я все верно понял...
Векторные рисунки используются для хранения высокоточных графических объектов(рисунков,чертежей и схем),для которых имеет значение сохранение чётких и ясных контуров.Векторные рисунки формируются из графических объектов(линия,прямоугольник,окружность),для каждого из которых задаются координаты опорных точек(например,для рисования окружности достаточно знать координаты её центра и радиус) и формулы рисования объекта.Для каждого объекта можно также указать цвет,толщину и стиль линии(сплошная,пунктирная и т.д.)его контура.екторные рисунки формируются из базовых графических объектов,для каждого из которых задаются координаты опорных точек,формулы рисования объекта,а также цвет,толщина и стиль линии его контура.остоиинством векторной графики является то,что векторные рисунки могут быть увеличены или уменьшены без потери качества .Это возможно,так как изменение размера рисунка производится с помощью простого умножения координат точек графических объектов на коэффициент масштабирования.Другое достоинство векторной графики - небольшой информационный объём файлов,содержащих растровые изображения.Векторная графика лежит в основе flash-анимации, популярной в настоящее время технологии создания анимации.Эта технология позволяет реализовать движение,плавно изменяя расположение,размер и цвет объектов на рисунке,а также показать плавное превращение одного объектв в другой.
Program Project1;
var a:array[0..9] of integer; i,sum:integer;beginrandomize;sum:=0; for i:=0 to 9 do begin a[i]:=random(10); Write(a[i],' '); if a[i] mod 2 = 0 then sum:=sum+a[i]; end; Writeln('Sum: ',sum); readln(i);end.<span>
</span>
Var a, i: integer;
begin
read(a);
while(a <> 0) do
begin
for i := 1 to a mod 10 do write('*');
writeln();
a := a div 10;
end;
<span>end.</span>
