Выделите текст или объект, к которому нужно добавить анимацию.
Откройте вкладку Анимации и выберите эффект анимации.
Нажмите кнопку Параметры эффектов и выберите нужный вариант.
Управление анимацией и эффектами
Анимацию можно запускать несколькими :
Чтобы настроить запуск эффекта анимации по щелчку на слайде, выберите По щелчку.
Чтобы эффект анимации запускался одновременно с предыдущим эффектом, выберите С предыдущим.
Чтобы анимация воспроизводилась сразу после предыдущего эффекта, выберите После предыдущего.
С поля Длительность можно сделать эффект более длинным или коротким.
В поле Задержка введите задержку перед запуском эффекта.
Добавление дополнительных эффектов к анимации
Выделите объект или текст с анимацией.
Нажмите кнопку Добавить анимацию и выберите необходимый вариант.
Изменение порядка воспроизведения анимации
Выберите маркер анимации.
Выберите нужный вариант:
Переместить назад, чтобы анимация выводилась раньше в последовательности.
Переместить вперед, чтобы анимация выводилась позже в последовательности.
Добавление анимации к сгруппированным объектам
Вы можете добавить анимацию к сгруппированным объектам, в том числе тексту.
Удерживая нажатой клавишу CTRL, выделите нужные объекты.
Выберите Формат > Группировать > Группировать, чтобы сгруппировать объекты.
Откройте вкладку Анимация и выберите эффект анимации.
var
n,p:integer;
s: string;
begin
write ('Введите число: ');
readln (n);
if n<0 then n:=-n; // отрицательное число переделываем в положительное, чтобы "длина строки" ниже не получилась больше количества цифр в числе
str(n,s); // преобразуем число в строку, чтобы узнать длину числа (количество цифр)
if (length(s) mod 2)=0 then n:=n div 10; // проверяем длину числа на четность. так как нам нужны цифры с НЕЧЕТНЫХ мест, убираем из числа последнюю цифру, которая стоит на ЧЕТНОМ месте:
p:=1;
while n>=1 do begin // организуем цикл ПОКА число не станет меньше единицы (в цикле мы будем отрезать от него по две цифры)
p:=p*(n mod 10); // произведение умножаем на последнюю цифру числа (остаток от деления числа на 10)
n:=n div 100; // отрезаем от числа 2 последние цифры. (в последней итерации цикла оно примет вид 0,0х, т.е. будет больше 0, но меньше 1)
end;
writeln;
writeln ('Произведение цифр,которые расположены на нечётных позициях, = ',p);
end.
Проимер:
Введите число: -2323
Произведение цифр,которые расположены на нечётных позициях, = 4