Версия для печати темы

Автор: -Artur- 9.12.2007 17:25

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 задача по нахождению совершенных чисел.

Автор: John 9.12.2007 17:41

var
i,j,k:integer;                                            /*объявление переменных*/
begin                                                      /*начало программы*/
for i:=1 to 10000 do begin                        /*цикл от 1 до 10000. for(от) 1(i := 1) to(до) 10000*/
k:=0;                                                    /*инициализация переменной*/
for j:=1 to i-1 do begin                            /*внутренний цикл от 1 до i - 1*/
if i mod j=0 then k:=k+j;                      /*если i делиться на j без остатка(операция mod - вычисление остатка от деления, тогда увеличиваем k*/
end;                                                 /*конец внутреннего цикла*/
if k=i then writeln(i);                          /*если k = i, тогда вывести значение i на экран*/
end;                                                    /*завершение работы*/

Автор: Гость 9.12.2007 17:45

Спасибо

Автор: Michael_Rybak 9.12.2007 19:45

Ох и ленивый же ты. Ну кормись, кормись.