Тема: pascal, цикл з передумовою; задано ціле число. знайти суму цифр у записі числа.

//pascal abc.net v3.1 сборка 1172 var   n,c,s: integer; begin   read(n);   while n< > 0 do   begin     c: =n mod 10;     s: =s+c;     n: =n div 10;   end;   writeln(s); end. пример ввода: 123 пример вывода: 6

налить в 9-литровое 9 литров

отлить 2 раза по 4 л. останется 1 л его вылить в 4х литровое

налить полное 9-литровое ведро и отлить из него в 4х литровое в котором уже есть 1 литр туда войдет 3 литра в 9-литровом останется 6 литров

рыжие и зеленоглазые - 2

рыжие или зеленоглазые - 6

рыжие и не зеленоглазые - 3

не рыжие и не зеленоглазые - 1