Напишите словесно, что обозначает каждая переменная и что происходит в цикле (нужно указать в комментариях программы)

[email protected] в категроии Информатика, вопрос открыт 21.11.2017 в 06:38

program svv; // Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N – 1, у которых сумма всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести слово «нет».
function summ (n:integer):byte;
var
m:integer;
s:byte;

begin
s:=0;
m:=n;
while m>0 do
begin
s:= s + m mod 10;
m:= m div 10;
end;
summ:=s;
end;

var
n:longint;
i:longint;
k:byte;

begin
write('n=');
readln(n);
k:=0;
for i:=1 to n-1 do
if summ(i)=summ(n) then
begin
k:=1;
if i>=10 then write(i,' ');
end;
if k=0 then write ('Нет');
readln;
end.