1. Информатика
  2. Напишите, , программу

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

Clook2023 Clook2023    2   02.10.2019 19:10    1

Ответы
faton63 faton63  09.10.2020 12:19

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ramoxa ramoxa  08.10.2019 18:40
Программа, написанная на одном из языков программирования и созданная для развлеченияа) компьютерная играв) тестовый редакторс) графический редакторд)антивирусная программае)...
rimolol rimolol  08.10.2019 18:30
Яучусь в 8 ом классе и моя школа учится по триместрам. скажите если у меня не оттистация по информатике чем мне это грозит, и что мне делать? ​...
fira2010f fira2010f  08.10.2019 18:30
Как называется игровое пространство, где происходит действие компьютерные игры? а)жанрв) средас)фонд)сценае)мир​....
elkat24 elkat24  08.10.2019 18:30
Как называется игра, в которой принимает участие 1 человек? а) однопользовательская играб) многопользовательская играс) личная иград) уникальная играе) обучающая игра​...
anyabelousova1 anyabelousova1  08.10.2019 17:05
Дано натуральное число n. вычислить [tex]s=\frac{1}{sin1} +\frac{1}{sin1+sin2} ++\frac{1}{sin1++sinn}[/tex] надо написать программу в delphi....
нушин нушин  08.10.2019 18:20
Ошибка в pascal (встречен конец файла, а ожидался оператор) program a1 ; var a,b,c,d: string; begin writeln( как тебя зовут? ); read(a); writeln( сколько тебе лет? ); read(b);...
Ням1111 Ням1111  08.10.2019 17:07
Информатика 8 класс, ! двуичная система счисления! ​...
Degradant81 Degradant81  08.10.2019 17:09
Составить алгоритм слова перо...
Fox1114 Fox1114  08.10.2019 17:10
Пользователь вводит целое положительное число m. найти наибольшее натуральное число k, при котором сумма 1×1 + 2×2+3×3+ + k2 m. вывести на экран таблицу значений сумм при всех...
irochkakarpenkp0bint irochkakarpenkp0bint  08.10.2019 18:20
Создайте программу для решения : клиент положил в банк определенную сумму денег. ежегодно банк добавляет ко вкладу заранее определенный процент от суммы, хранящийся на счету...

Популярные вопросы