Напишите логическую функцию, которая определяет, верно ли, что число n-совершенное, т.е. равно сумме своих делителей, меньших его самого.

Var n,i,s: integer; begin readln(n); for i: =1 to n do if n mod i =0 then s: =s+i; if s = n then write('верно') else write('не верно'); readln end.

Интерфе́йс   (.  interface   —  сопряжение, поверхность раздела, перегородка )  — совокупность возможностей, способов и методов  взаимодействия   двух  систем   (любых, а не обязательно являющиеся вычислительными или  информационными ),  устройств   или  программ   для  обмена информацией   между ними, определённая их характеристиками, характеристиками соединения, сигналов обмена и  т.  п. в случае, если одна из взаимодействующих систем  —  человек , чаще говорят лишь о второй системе, то есть об интерфейсе той системы, с которой  человек взаимодействует .

#include < stdio.h>   int main() {     file* in = fopen("input.txt", "r");     char s[100], b = 1, i = 0;     short c;     do {         c = getc(in);         if (c > = '0' & & c < = '9') {             if ((b = ! b) & & /*             */ (c = getc(in)) == ' ' || c == '\t' || c == '\r' || c == '\n' || c == eof) {                 while (c ! = '\n' & & c ! = eof)                     c = getc(in);                 i = 0;             }         } else if (c == '\n') {             for (b = 0; b < i; b++)                 putchar(s[b]);             putchar(c);             putchar('\n');             i = 0;             b = 1;         } else {             s[i++] = c;             b = 1;         }     } while (c ! = eof);     fclose(in);