===== PascalABC.NET =====
procedure pK(n: integer; var k: int64);
begin
k := 1;
for var i := 2 to n do
k *= i
end;
function fK(n: integer): int64;
begin
Result := 1;
for var i := 2 to n do
Result *= i
end;
begin
var n := ReadInteger('n =');
var r: int64;
pK(n, r);
Println('Процедура:', r);
Println('Функция:', fK(n))
end.
Запиши слова,выбирая буквыКо(л,лл)екцыя,ба(с,сс)ейн,б(и,е)речь,в(и,е)новат,во(ж,жж)и,а(п,пп)тит,су(б,бб)ота,п(и,е)сок,ин(и
Olga104916 [85]
Коллекция,бассейн,беречь,виноват,вожжи,аппетит,суббота,песок,иней,вокзал.
1
Посмотрите на данное вам число и определите количество его цифр.
Пример: напишите 5827 в развернутом виде.
Прочитайте число вслух: пять тысяч восемьсот двадцать семь.
Обратите внимание, что в этом числе есть четыре цифры. В результате развернутая форма будет содержать четыре слагаемых.
2
Перепишите число в виде суммы его цифр, оставив между ними некоторое расстояние, чтобы умножить каждую цифру на некоторую цифру (об этом далее).
Пример: 5827 перепишите так:
5 + 8 + 2 + 7
3
Цифры числа расположены в определенных позициях, которые соответствуют (справа налево) единицам, десяткам, сотням, тысячам и так далее. Определите название позиции и ее значение для каждой цифры (справа налево).
Пример: так как в данном числе четыре цифры, то вам нужно определить названия четырех позиций (справа налево).
7 соответствует единицам (значение = 1).
2 соответствует десяткам (значение = 10).
8 соответствует сотням (значение = 100).
5 соответствует тысячам (значение = 1000).
4
Умножьте каждую цифру данного числа на значение соответствующей ей позиции.
Пример: [5 * 1000] + [8 * 100] + [2 * 10] + [7 * 1]
5
Запишите окончательный ответ, так как сумма произведений является развернутой формой исходного числа.
Пример: развернутая форма 5827:
5000 + 800 + 20 + 1
Нет сам делай дурачек конспект это изи!
