Pascal.ABC
Дано случайное количество чисел, узнать сколько совершенных чисел в этом ряду (написать программу).
Дано случайное количество чисел, узнать сколько совершенных чисел в этом ряду (написать программу).
More Questions From This User See All
Answers & Comments
Begin
readln(n);
kol := 0;
for k := 1 to n do begin
sum := 0;
read(a);
for i := 1 to a-1 do
if a mod i = 0 then sum := sum + i;
if sum = a then kol := kol + 1;
end;
writeln(kol);
End.