Var
A :array[2..20] of integer;
i : integer;
begin
for i:=1 to 22 do
for i:=1 to 22 do
begin
A[i]:=A[A+2];
Writeln(a[i]:4);
end;
end.
Var
i, n, a, b,n1: integer;
begin
write('Введите число ');
Readln(n);
n1 := n;
a := n mod 10;
case a of
2, 3: n := n * ((n div 10) mod 10);
7, 8, 9: begin for i := 1 to length(inttostr(n)) do begin b := b + (n mod 10);n := n div 10; end;n := n1 - b; end;
1, 4, 5, 6, 0: n := n div 10;
End;
Write(n);
<span>end.</span>
Например:Я выберу номер 3. .......... Компьютерная анимация (последовательный показ слайд-шоу из заранее подготовленных графических файлов, а также компьютерная имитация движения с помощью изменения и перерисовки формы объектов или показа последовательных изображений с фазами движения, подготовленных заранее или порождаемых во время анимации) может применяться в компьютерных играх, мультимедийных приложениях (например, энциклопедиях), а также для «оживления» отдельных элементов оформления, например, веб-страниц и рекламы (анимированные баннеры). На веб-страницах анимация может формироваться средствами стилей (CSS) и скриптов (JavaScript) или модулями, созданными с помощью технологии Flash или её аналогов (флеш-анимация).
С середины 1980-х годов компьютерная анимация используется для создания спецэффектов в кинематографе. Первым фильмом, содержащим ключевые сцены, основанные на изображении, синтезированном компьютером, стал «Терминатор 2: Судный день»[1].
Несомненным преимуществом компьютерной 3D-анимации перед классической рисованной является полное отсутствие искажений пропорций объекта (черт лица и т. п.) при движении, неизбежных при ручной прорисовке.
Вариант программы и результата её выполнения на скриншотах.
