космонавты успешно выполнили , проработав на космической станции «мир» 253 дня. среди депутатов было четыре женщины. машины стояли одна от другой в полутора метрах. у обоих ворот пришлось выставить часовых. за день депутат успевал принять и выслушать тридцать четыре человека. по накладной следовало выдать 22 штуки ножниц для ателье. касса банка располагала пятистами пятьдесят четырьмя тысячами рублями. груздь содержит в своей шляпке 32, 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)
космонавты успешно выполнили , проработав на космической станции «мир» 253 дня. среди депутатов было четыре женщины. машины стояли одна от другой в полутора метрах. у обоих ворот пришлось выставить часовых. за день депутат успевал принять и выслушать тридцать четыре человека. по накладной следовало выдать 22 штуки ножниц для ателье. касса банка располагала пятистами пятьдесят четырьмя тысячами рублями. груздь содержит в своей шляпке 32, 2 процента белков. в этом году город отметил свое шестисотлетие. ему пришлось ограничиться тремя тысячами двухстах сороками рублями. все дело заняло не более пары минут. мы опоздали всего на полторы сутки. в его словах была все же какая- то двусмысленность. на столе лежало пол огромного арбуза. лекции студентам читали трое профессоров. с обеих сторон простирался густой лес.