Чуваки. Такой вопрос. Язык паскаль. Есть цикл for. К примеру
Можно ли посчитать сумму цифр каждого числа из данного цикла? То есть не сложить сумму всех цифр от 100 до 999, а, допустим, если проверяется элемент 567, то код просто запишет 18 и перейдет к числу 568 и т.д.
Я пробовал с repeat'ом так
- for i:=100 to 999 do
begin
repeat
a:=i mod 10;
s:=s+a;
a:=a div 10;
until i=0;
end;
Но, соответственно, у меня не получилось. Поэтому обращаюсь за помощью к тру программам. Только нужно без использования массивов и строковых типов данных. По хардкору, исключительно с использованием циклов for, repeat, while, case и т.д.