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
i, n, s: integer;
begin
readln(n);
i := 0;
s := 0;
while i < 7 do
begin
if (n mod 2 = 1) then begin
s := s + n;
i := i + 1;
end;
n := n + 1;
end;
writeln(s);
end.
var
i, n, s: integer;
begin
readln(n);
i := 0;
s := 0;
repeat
if (n mod 2 = 1) then begin
s := s + n;
i := i + 1;
end;
n := n + 1;
until i >= 7;
writeln(s);
end.
var
i, n, s: integer;
begin
readln(n);
n := n + (n + 1) mod 2;
s := 0;
for i := 1 to 7 do
begin
s := s + n;
writeln(n);
n := n + 2;
end;
writeln(s);
end.