Регистрация
MaryanaSokolova0404
10.06.2020 02:11
Информатика
Есть ответ 👍

Напишите, , программу на языке pascal ! вводится последовательность из n целых положительных элементов. подсчитать количество совершенных чисел в последовательности. для определения совершенного числа создать функцию.

121
333
Посмотреть ответы 3

Ответы на вопрос:

алекс922
алекс922
4,7(54 оценок)

babykitten5002p08hdk
babykitten5002p08hdk
4,4(84 оценок)

function f(x: longint): boolean;

var i,k: longint;

begin

for i: =1 to x div 2 do

if x mod i=0 then k+=i;

if k=x then f: =true else f: =false

end;

var i,n,k,ans: longint;

begin

read(n);

for i: =1 to n do

begin

read(k);

if f(k) then ans+=1

end;

write(ans)

end.

annaphilatovp06jxq
annaphilatovp06jxq
4,4(12 оценок)
(x& y+z)(x+неy+неz) = x& y+x& y& неz+z& x+z& неy=x& y+x& z+zнеy

Популярно: Информатика