можно сразу файл заранее!!
Работа 15. Создаём линейную презентацию
Презентация «Часы»
Задание 1
1. Через пункт Все программы главного меню запустите редактор презентаций PowerPoint.
2. На вкладке Главная в группе Слайды щёлкните мышью на кнопке Макет. Выберите Пустой слайд.
3. С готовых фигур (вкладка Вставка, группа Иллюстрации) на пустом слайде изобразите циферблат с двумя стрелками. Это может выглядеть, например, так:
Чтобы циферблат был симметричным, сначала изобразите в центре экрана пересекающиеся горизонтальную и вертикальную прямые — оси симметрии. Пытайтесь рисовать рационально — копируйте повторяющиеся фрагменты, при необходимости изменяйте их с команд группы Повернуть (Средства рисования — Упорядочить — Повернуть).
4. Скопируйте слайд с часами в буфер обмена. Для этого:
1) на вкладке Слайды левой панели щёлкните на слайде с часами;
2) щёлкните на кнопке Копировать (вкладка Главная).
5. Вставьте в презентацию ещё 4 копии этого слайда (кнопка Вставить на вкладке Главная). Всего должно получиться 5 слайдов.
6. Внесите изменения в положение стрелок на слайдах так, чтобы на них последовательно отмечалось время: 12.00, 12.15, 12.30, 12.45 и 13.00.
7. Перейдите на вкладку Переходы. В группе Время показа слайдов:
1) установите минимальную длительность перехода между слайдами (00,01);
2) выберите режим смены слайдов После (отметьте флажком) и установите время 1 сек (00:01,00);
3) щёлкните на кнопке Применить ко всем.
8. Запустите презентацию, нажав клавишу .
9. При наличии времени внесите в презентацию промежуточные слайды так, чтобы на них отмечалось время 12.05, 12.10 и т. д.
10. Сохраните работу в личной папке под именем Часы.
begin
var a:=MatrixRandom(7,7,0,9);
var k:=0;
for var i:=0 to 6 do begin
for var j:=0 to 6 do begin
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
Тестовое решение:
2 1 7 3 3 2 7
9 2 9 2 0 5 5
4 2 6 9 4 6 0
1 0 3 5 4 5 9
6 3 6 0 2 0 8
0 8 4 3 2 1 8
6 0 4 4 5 4 0
Кол-во элементов на [1,5]: 27
Вариант "совсем для школы"
const
n=7;
var
a:array[1..n,1..n] of integer;
i,j,k:integer;
begin
Randomize;
k:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(10);
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
5591(20), 5623(16), 5639(23), 5641(16), 5647(22), - 4
5651(17), 5653(19), 5657(23), 5659(25), 5669(26), - 1
5683(22), 5689(28), 5693(23), 5701(13), 5711(14), - 3
5717(20), 5737(22), 5741(17), 5743(19), 5749(25), - 2
5779(28), 5783(23), 5791(22), 5801(14), 5807(20), - 4
5813(17), 5821(16), 5827(22), 5839(25), 5843(20), - 3
5849(26), 5851(19), 5857(25), 5861(20), 5867(26), - 3
5869(28), 5879(29), 5881(22), 5897(29), 5903(17), - 2
5923(19), 5927(23), 5939(26), 5953(22), 5981(23), - 2
5987(29), 6007(13), 6011(09), 6029(17), 6037(16), - 1
6043(13), 6047(17), 6053(14), 6067(19), 6073(16), - 2
6079(22), 6089(23), 6091(16), 6101(08), 6113(11), - 3
6121(10), 6131(11), 6133(13), 6143(14), 6151(13), - 2
6163(17), 6173(17), 6197(23), 6199(25), 6203(11), - 0
6211(10), 6217(16), 6221(11), 6229(19), 6247(19), - 2
6257(20), 6263(17), 6269(23), 6271(16), 6277(22), - 3
6287(23), 6299(26), 6301(10), 6311(11), 6317(17), - 2
6323(14), 6329(20), 6337(19), 6343(16), 6353(17), - 3
6359(23), 6361(16), 6367(22), 6373(19), 6379(25), - 2
6389(26), 6397(25), 6421(13), 6427(19), 6449(23), - 1
6451(16), 6469(25), 6473(20), 6481(19), 6491(20), - 3
6521(14), 6529(22), 6547(22), 6551(17), 6553(19), - 3
6563(20), 6569(26), 6571(19), 6577(25), 6581(20), - 3
6599(29), 6607(19), 6619(22), 6637(22), 6653(20). - 3
Всего 120 простых чисел, из них 57 имеют четную сумму цифр.