Написать пояснения к каждой строчке задачи Program z3; var i,j,s: word; begin for i := 1 to 10000 do begin s := 0; for j:=1 to i div 2 do if i mod j = 0 then s := s+j; if s = i then write(i,); end; writeln; readln; end.

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Написать пояснения к каждой строчке задачи Program z3; var i,j,s: word; begin for i := 1 to 10000 do begin s := 0; for j:=1 to i div 2 do if i mod j = 0 then s := s+j; if s = i then write(i,); end; writeln; readln; end.» от пользователя Поля Пророкова в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.