Напишите программу, которая вводит натуральное число N и определяет, является ли число N совершенным - Pascal ABC

Формулировка задачи:

Ряд чисел Фибоначчи задается следующим образом: первые два числа равны 1(F1=F2=1), а каждое следующее равно сумме двух предыдущих: Fn=Fn-1+Fn-2. Напишите программу, которая вводит натуральное число N и определяет, является ли число N совершенным.

Код к задаче: «Напишите программу, которая вводит натуральное число N и определяет, является ли число N совершенным - Pascal ABC»

textual
program fib;
var a, b, f, n, i, x: integer;
 
begin
writeln('Vvedite poryzdkoviy nomer chisla');
readln(n);
a :=1; b := 1;
for i := 3 to n do begin
    f := a + b;
    a := b;
    b := f;
    end;
writeln('chislo s nomerom ',i,' = ',f);
    x := 0;
for i := 1 to (f div 2) do
    if ((f mod i) = 0) then x := x + i;
   
If (x = f) then writeln('Chislo sovershennoe')
else writeln('Chislo nesovershennoe');
end.

11   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ