Var
n: longint;
i, sum: integer;
begin
Readln(n);
Sum := 0;
while n > 0 do
begin
Sum := sum + (n mod 10);
n := n div 10;
end;
Writeln(sum);
end.
Составь алгоритм для Путешественника
Цель: изучить флэш-память.
Начальное положение: Путешественник — в корне дерева.
Начало
Конец
С
Составь алгоритм для Путешественника.
Цель: изучить все диски.
Начальное положение: Путешественник — в вершине «Флэш-память».
№1
а) 101011111<span> + </span>111101<span> = </span>110011<span>100
б) </span>101011111 - 111101 = 100100010
в) 101011111<span> × 1</span>001<span> = </span>110001010<span>111
</span>№2
927 (10)<span> = 1</span>021100 (3) = 12202 (5) = 2463 (7) = 1<span>240 (9)
</span>№3
AC6 (16) - 432 (6) + 723 (9) - 444 (5) = AC6 (16) - A4 (16) + 24C (16) - 7C (16) = <span>BF2 (16)</span>
Неразрывный пробел Ctrl+Shift+пробел
перевод строки, пробел