Привет! Я из "Страна/Город" у нас была ипедемия вируса "Любой вирус/даже свой". Хотят закрыть на карантин, добавить новые уроке в школу. По типу "Любой язык или предмет". Сначало нам сказали, что они будут не сложными первые 2 года, а потом уже будет чуть чуть сложнее. Нам хотят добавить программирование на урок Информатики. Надеюсь ты этого не знал, удачи!
Информация, выводимая любой программой должна быть легко читаемой, понятной для пользователя. Для этого, в частности, нужно, чтобы действительные числа были выведены в алгебраической форме, как число с точкой, а также в записях содержались пробелы, отделяющие числа от текста и др. Для этого в языках программирования используются форматы вывода. При использовании форматов для вывода значений в текстовые файлы или на экран около имени, выводимого данного явно указывается размер поля для размещения его значения (после знака :), в виде переменная:ширина поля. Источник : http://physic.kemsu.ru/pub/library/learn_pos/Free_Pascal/Free%20Pascal/soder/3_1_2.htm
ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР n, k, сч, мин, кол: ЦЕЛ;
ЗАДАЧА Сумма_цифр(число: ЦЕЛ): ЦЕЛ; ПЕР сумма: ЦЕЛ; УКАЗ сумма := 0; ПОКА число > 0 ВЫП УВЕЛИЧИТЬ(сумма, число ОСТАТОК 10); число := число ДЕЛИТЬ 10 КОН; ВОЗВРАТ сумма КОН Сумма_цифр;
УКАЗ Вывод.Цепь("n: "); n := Приём.Число(); Вывод.Цепь("^k: "); k := Приём.Число(); мин := 1; ОТ сч := 1 ДО n - 1 ВЫП мин := мин * 10 КОН; кол := 0; ОТ сч := мин ДО мин * 10 - 1 ВЫП ЕСЛИ Сумма_цифр(сч) = k ТО УВЕЛИЧИТЬ(кол) КОН КОН; Вывод.ЧЦел("^%d", кол, 0, 0, 0)
Привет! Я из "Страна/Город" у нас была ипедемия вируса "Любой вирус/даже свой". Хотят закрыть на карантин, добавить новые уроке в школу. По типу "Любой язык или предмет". Сначало нам сказали, что они будут не сложными первые 2 года, а потом уже будет чуть чуть сложнее. Нам хотят добавить программирование на урок Информатики. Надеюсь ты этого не знал, удачи!