Помощь - Поиск - Пользователи - Календарь
Полная версия: Описание строк задачи
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
-Artur-
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
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; /*завершение работы*/

Гость
Спасибо smile.gif
Michael_Rybak
Ох и ленивый же ты. Ну кормись, кормись.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.