оператор присваивания :=
оператор ввода read(x1,x2,...,xn) или readln(x1,x2,...,xn)
оператор вывода write(x1,x2,...,xn) или writeln(x1,x2,...,xn)
условный оператор if условие then оператор 1 else оператор 2
оператор варианта case управляющая переменная of
набор значений1: оператор1;
набор значений2: оператор2;
...
набор значенийn: операторN
else
альтернативный оператор
end;
оператор цикла с предусловиями while ... do
оператор цикла с постусловием repeat ... until
оператор цикла for ... do
оператор break осуществляет немедленный выход из циклов repeat, while, for.
оператор continue начинает новую итерацию цикла, даже если предыдущая не была завершина.
оператор exit осуществляет выход из подпрограммы.
оператор halt прекращает выполнение программы и возвращает код завершения в операционную систему.
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
n, k, сч, мин, кол: ЦЕЛ;
ЗАДАЧА Сумма_цифр(число: ЦЕЛ): ЦЕЛ;
ПЕР
сумма: ЦЕЛ;
УКАЗ
сумма := 0;
ПОКА число > 0 ВЫП
УВЕЛИЧИТЬ(сумма, число ОСТАТОК 10);
число := число ДЕЛИТЬ 10
КОН;
ВОЗВРАТ сумма
КОН Сумма_цифр;
УКАЗ
Вывод.Цепь("n: ");
n := Приём.Число();
Вывод.Цепь("^k: ");
k := Приём.Число();
мин := 1;
ОТ сч := 1 ДО n - 1 ВЫП
мин := мин * 10
КОН;
кол := 0;
ОТ сч := мин ДО мин * 10 - 1 ВЫП
ЕСЛИ Сумма_цифр(сч) = k ТО
УВЕЛИЧИТЬ(кол)
КОН
КОН;
Вывод.ЧЦел("^%d", кол, 0, 0, 0)
КОН Задание.