Делать в паскали.Дано натуральное число .Найти количество совершенных чисел меньших или...

0 интересует 0 не интересует
87 просмотров

Делать в паскали.Дано натуральное число .Найти количество совершенных чисел меньших или доривнюючих ему. Ответ вывести на экран и сделать это с файлами


спросил от (49 баллов) в категории Информатика
оставил комментарий от Отличник (6.6k баллов)
0 0

И ввод из файла, и вывод в файл?

оставил комментарий от (49 баллов)
0 0

да

оставил комментарий от (49 баллов)
0 0

сможете зделать

оставил комментарий от (49 баллов)
0 0

Поможешть

оставил комментарий от (49 баллов)
0 0

пожалуйста

1 Ответ
0 интересует 0 не интересует
ответил от Отличник (6.6k баллов)
 
Лучший ответ

Uses Crt;
Var
   f:text;
   S,n,k,d:integer;
Begin
Assign(f,'TextIn.txt');
Reset(f);
Read(f,n);
k:=0;
For n:= 1 to n do
     Begin
     S:=0;
     d:=n div 2;
     While d<>0 do
        Begin
        if n mod d = 0 then S:=S+d;
        d:=d-1
        End;
     if S = n then
        Begin
        WriteLn(n);
        k:=k+1
        End
     End;
Close(f);
Assign(f,'TextOut.txt');
ReWrite(f);
Write(f,k);
Close(f);
ReadLn;
End.


Для правильной работы программы необходимо, чтобы эти файлы лежали в папке с программой:


Скачать вложение Текст (TXT)
Скачать вложение Текст (TXT)
...