Укажите, какое ПО необходимо людям в следующих ситуациях, поставив знак «+» в соответствующем столбце таблицы. В одном столбце может быть несколько знаков «+».
В Windows используется несколько разновидностей окон. В зависимости от назначения и использования окна в операционной системе Windows делятся на:
программные; документов; диалоговые; сообщений и предупреждений; всплывающие. В операционной системе Windows для выполнения программы почти всегда открывается связанное с ней окно. С такого окна пользователь взаимодействует с выполняющейся программой, управляет ее работой. Говорят, что программа выполняется в окне. Окна, в которых выполняются программы, называются программными окнами (прикладными окнами, окнами приложений).
ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР n, k, сч, мин, кол: ЦЕЛ;
ЗАДАЧА Сумма_цифр(число: ЦЕЛ): ЦЕЛ; ПЕР сумма: ЦЕЛ; УКАЗ сумма := 0; ПОКА число > 0 ВЫП УВЕЛИЧИТЬ(сумма, число ОСТАТОК 10); число := число ДЕЛИТЬ 10 КОН; ВОЗВРАТ сумма КОН Сумма_цифр;
УКАЗ Вывод.Цепь("n: "); n := Приём.Число(); Вывод.Цепь("^k: "); k := Приём.Число(); мин := 1; ОТ сч := 1 ДО n - 1 ВЫП мин := мин * 10 КОН; кол := 0; ОТ сч := мин ДО мин * 10 - 1 ВЫП ЕСЛИ Сумма_цифр(сч) = k ТО УВЕЛИЧИТЬ(кол) КОН КОН; Вывод.ЧЦел("^%d", кол, 0, 0, 0)
программные;
документов;
диалоговые;
сообщений и предупреждений;
всплывающие.
В операционной системе Windows для выполнения программы почти всегда открывается связанное с ней окно. С такого окна пользователь взаимодействует с выполняющейся программой, управляет ее работой. Говорят, что программа выполняется в окне. Окна, в которых выполняются программы, называются программными окнами (прикладными окнами, окнами приложений).
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
n, k, сч, мин, кол: ЦЕЛ;
ЗАДАЧА Сумма_цифр(число: ЦЕЛ): ЦЕЛ;
ПЕР
сумма: ЦЕЛ;
УКАЗ
сумма := 0;
ПОКА число > 0 ВЫП
УВЕЛИЧИТЬ(сумма, число ОСТАТОК 10);
число := число ДЕЛИТЬ 10
КОН;
ВОЗВРАТ сумма
КОН Сумма_цифр;
УКАЗ
Вывод.Цепь("n: ");
n := Приём.Число();
Вывод.Цепь("^k: ");
k := Приём.Число();
мин := 1;
ОТ сч := 1 ДО n - 1 ВЫП
мин := мин * 10
КОН;
кол := 0;
ОТ сч := мин ДО мин * 10 - 1 ВЫП
ЕСЛИ Сумма_цифр(сч) = k ТО
УВЕЛИЧИТЬ(кол)
КОН
КОН;
Вывод.ЧЦел("^%d", кол, 0, 0, 0)
КОН Задание.