Последовательность действий для создания анимации в программе microsoft powerpoint1. откройте программу для работы с презентациями microsoft office 2. вставьте на слайд фоновый рисунок трава.jpg с команды — рисунок.3. добавьте на слайд смайлик. для этого выполните команду вставка — - улыбающееся лицо.4. измените цвет смайлика на жёлтый с команды формат — заливка фигуры — 5. настройте траекторию движения смайлика по траве. выделите объект «смайлик», выполните команду — дополнительные параметры — другие пути перемещения — круг и откорректируйте траекторию движения на слайде.6. для того чтобы смайлик двигался с начала показа презентации, установите анимация — начало — 7. просмотрите презентацию, выполнив команду показ слайдов — 8. сохраните презентацию с команды файл — 9. покажите результат работы учителю. последовательность действий для создания анимации в программе openoffice impress1. откройте программу для работы с презентациями openoffice 2. вставьте на слайд фоновый рисунок tpaвa.jpg с команды вставка — — 3. добавьте на слайд смайлик. для этого в панели инструментов выберите фигуры - символы — 4. измените цвет смайлика на жёлтый с команды формат — область — 5. настройте траекторию движения смайлика по траве. выделите объект «смайлик», выполните команду демонстрация — — добавить — пути движения — овал и откорректируйте траекторию движения на слайде.6. для того чтобы смайлик двигался с начала показа презентации, установите — эффекты — начать — 7. просмотрите презентацию, выполнив команду демонстрация — 8. сохраните презентацию с команды файл —
var
A: array [1..40] of Integer;
i, c: Integer;
begin
Randomize;
WriteLn ('Массив случайных чисел:');
for i := 1 to 40 do begin
A [i] := Random (10);
Write (IntToStr (A [i]) + ' ');
end;
c := 0;
for i := 1 to 40 do begin
if (A [i] mod 2 <> 0) and (A [i] mod 3 = 0) then // первое условие - проверка на нечетность, второе - делимость на 3
Inc (c);
end;
Writeln;
WriteLn ('Количество нечетных чисел, которые делятся на 3 = ' + IntToStr (c));
end.