На языке паскаль абс написать программу (не глушилку - вопрос №2752957 от ева518 10.03.2020 07:12

Question

Информатика: На языке паскаль абс написать программу (не глушилку , а нормальную программу)(желательно с циклов и if-ов) натуральное число называется совершенным, если оно равно сумме своих делителей, включая 1 и, естественно, исключая само число. например, совершенным является число 6 (6=1+2+3). необходимо найти все совершенные числа, меньшие заданного числа n. формат входных данных вводится одно целое число n (1≤n≤100000). формат выходных данных требуется вывести все совершенные числа, меньшие заданного числа

ева518 · Answer

Ну Хьюстон почти все уже сделал. Я чуток подправил
var i,j,s,n:integer;
begin
readln(n);
for i := 1 to n-1 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;
end.