Предмет: Информатика,
автор: Banchik
Напишите программу получения всех совершенных чисел из диапазона от 1 до N.Прошу написать через цикл While.
Ответы
Автор ответа:
2
var n,i,j,s,k:integer;
begin
write('Введите число: ');
readln(n);
i:=1;
while i <= n do
begin
j:=1;
s:=0;
while j<i
do
if i mod j = 0 then
begin
s:=s+j;
j:=j+1;
end
else
j:=j+1;
if s=i then
begin
k:=k+1;
if k=1 then write('Совершенные числа из диапазона от 1 до ',n,': ');
write(i,' ')
end;
i:=i+1
end;
if k=0 then write('Совершенных чисел в диапазоне от 1 до ',n,' нет');
end.
Похожие вопросы
Предмет: Математика,
автор: hogg21
Предмет: Математика,
автор: akkyz310110
Предмет: Другие предметы,
автор: DinaraSayakhova
Предмет: Алгебра,
автор: alexderkach2000
Предмет: Алгебра,
автор: pavel200228