4.2 Разместите свой документ в папке общего доступа.
Критерий
оценивання
1
Правильно
записывает названия
современных
цифровых устройств
1
1
Устанавливает
параметры документа
для печати
N
Дескриптор
задання
Обучающийся
1
записывает название 1-ой
программы
записывает название 2-ой
программы
записывает название 3-й
программы
2
указывает причину появления
сообщения;
определяет действия,
необходимые для печати
документа:
3.1 приводит примеры
копирования;
3.2
приводит примеры своих
действий,
3.3
определяет последствия
незаконного копирования.
4.1 Создает документ,
размешает документ в папку
обшего доступа:
Использование
информации
Интернет
в сети
1
Выполняет операции
с файлами общего
доступа
4.2
1
Всего
10
296
367
Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! procedure fillstack(st: stack< integer> ; sq: sequence of integer); begin foreach var t in sq do st.push(t); end; procedure printstack(st: stack< integer> ; s: string); begin write(s); st.println end; procedure tostack(sta,stb: stack< integer> ; even: boolean); begin if even then while sta.count> 0 do begin var v: =sta.pop; if v.iseven then begin stb.push(v); exit end end else while sta.count> 0 do begin var v: =sta.pop; if v.isodd then begin stb.push(v); exit end end end; begin var st1: =new stack< integer> ; fillstack(st1,seq(2,13,20,18,1)); printstack(st1,'стек1: '); var st2: =new stack< integer> ; fillstack(st2,seq(9,11,10,8,4)); printstack(st2,'стек2: '); var st3: =new stack< integer> ; while st1.count+st2.count> 0 do begin tostack(st1,st3,true); tostack(st2,st3,false); end; printstack(st3,'стек3: ') end. результат стек1: 1 18 20 13 2 стек2: 4 8 10 11 9 стек3: 2 9 20 11 18
Популярно: Информатика
-
danilasavap0a3nj25.10.2022 14:20
-
ОМЛА19.08.2022 04:27
-
Нукку9510.11.2022 07:15
-
malinka121227.11.2021 17:07
-
YuliaVaskiv24.09.2020 00:56
-
khludenev9919.09.2021 09:27
-
ruha2005042022.08.2022 07:55
-
zurkus11227.05.2022 11:52
-
нина65512.02.2023 07:12
-
77749630.09.2022 09:45