var
i,j,k:integer;
begin
for i:=1 to 10000 do begin
k:=0;
for j:=1 to i-1 do begin
if i mod j=0 then k:=k+j;
end;
if k=i then writeln(i);
end;
Дана вот такая задача, всё проверено, она работает. Но нужно описать строки. Конечно begin и end описывать не надо, это итак понтяно, но не мог бы кто помочь с кодами ? Нужно описать словами что каждая строчка означает, а я не знаю команд mod, for, to, do. Пожалуйста кто может раснаписать словами строки, в которых присутствуют эти команды. Буду очень благодарен.
P.S задача по нахождению совершенных чисел.