Учні 9 класу вирішили організувати в школі під час літніх канікул 5-ти денну літню школу для молодших школярів, яка триватиме не більш як 3 год кожного
запланованого дня.
1. Обговоріть ідею літньої школи: вивчення мови, опанування робототехніки,
організація пластунського руху, підтримка здорового життя, цікава
наука, умілі руки тощо.
2. Створіть текстові онлайнові документи:
оголошення про проведення літньої школи;
розпорядок роботи літньої школи та план-графік проведення заходів;
лист-звернення до волонтерів, батьків, адміністрації щодо до в
облаштуванні літньої школи, приєднайте до нього план-графік заходів.
3. Розробіть онлайнову форму для підготовки роботи літньої школи та
відповідну електронну таблицю для отримання відповідей з форми для:
реєстрації учасників літньої школи, де буде передбачено ім'я та прізвище
учня, клас, у якому навчається, особливі умови для підтримки здоров'я,
контактна особа (батько чи мати, його чи її телефон), інтереси учня, інші
умови, які важливі відповідно до специфіки школи;
голосування майбутніх учасників літньої школи щодо запланованих заходів
і внесення власних пропозицій;
реєстрації волонтерів літньої школи, у якій буде передбачено ім'я та
прізвище волонтера, вік, яку волонтерську діяльність може запропонувати
під час проведення літньої школи, який термін участі у школі: від
одноразової участі – до повної зайнятості протягом 5 днів, контакти.
4. Засобами офісних веб-програм спільно розробіть документи;
кошторис організації проведення літньої школи, у якому передбачте
організаційні витрати та витрати для проведення заходів під час роботи
літньої школи;
презентацію літньої школи та її фундаторів;
малюнок-емблему літньої школи, яка відображає основну мету її
організації.
Доступ до матеріалів відкрийте для
A,B0,B1,B2,B3,B4,B5,B6,B7,B8,B9:integer;
Begin
WriteLn('Введите число');
ReadLn(A);
While A>0 do
Begin
Case A mod 10 of
0:B0:=B0+1;
1:B1:=B1+1;
2:B2:=B2+1;
3:B3:=B3+1;
4:B4:=B4+1;
5:B5:=B5+1;
6:B6:=B6+1;
7:B7:=B7+1;
8:B8:=B8+1;
9:B9:=B9+1;
End;
A:= A div 10;
End;
if (B0 = 3)and(B1<2)and(B2<2)and(B3<2)and(B4<2)and(B5<2)and(B6<2)and(B7<2)and(B8<2)and(B9<2)then WriteLn('Верно')
else if (B1 = 3)and(B2<2)and(B3<2)and(B4<2)and(B5<2)and(B6<2)and(B7<2)and(B8<2)and(B9<2)and(B0<2)then WriteLn('Верно')
else if (B2 = 3)and(B3<2)and(B4<2)and(B5<2)and(B6<2)and(B7<2)and(B8<2)and(B9<2)and(B0<2)and(B1<2)then WriteLn('Верно')
else if (B3 = 3)and(B4<2)and(B5<2)and(B6<2)and(B7<2)and(B8<2)and(B9<2)and(B0<2)and(B1<2)and(B2<2)then WriteLn('Верно')
else if (B4 = 3)and(B5<2)and(B6<2)and(B7<2)and(B8<2)and(B9<2)and(B0<2)and(B1<2)and(B2<2)and(B3<2)then WriteLn('Верно')
else if (B5 = 3)and(B6<2)and(B7<2)and(B8<2)and(B9<2)and(B0<2)and(B1<2)and(B2<2)and(B3<2)and(B4<2)then WriteLn('Верно')
else if (B6 = 3)and(B7<2)and(B8<2)and(B9<2)and(B0<2)and(B1<2)and(B2<2)and(B3<2)and(B4<2)and(B5<2)then WriteLn('Верно')
else if (B7 = 3)and(B8<2)and(B9<2)and(B0<2)and(B1<2)and(B2<2)and(B3<2)and(B4<2)and(B5<2)and(B6<2)then WriteLn('Верно')
else if (B8 = 3)and(B9<2)and(B0<2)and(B1<2)and(B2<2)and(B3<2)and(B4<2)and(B5<2)and(B6<2)and(B7<2)then WriteLn('Верно')
else if (B9 = 3)and(B0<2)and(B1<2)and(B2<2)and(B3<2)and(B4<2)and(B5<2)and(B6<2)and(B7<2)and(B8<2)then WriteLn('Верно')
else WriteLn('Не верно')
End.