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

Program gt; var n,s,l,i: longint; begin read(n); s: =0; l: =round(sqrt(n)); for i: =1 to l do begin if(n mod i=0)then begin s: =s+i; s: =s+n div i; end; end; if(l*l=n)then s: =s-l; if(s< =n)then writeln('да это правда')else writeln('нет'); end. 2) program gt; var n: integer; begin read(n); if(n=1)then writeln('да')else writeln('нет'); end. 3) program gt; var n,s: integer; begin read(n); s: =((1+n)*n)div 2; writeln(s); end.

Const n=? ; {кол-во элементов в массиве, написать число вместо "? "} var a,b: array[1..n] of integer; x,k,i,j: integer; begin   writeln('init massive: ');   for i: =1 to n do     begin     readln(x); {а лучше написать read(x); и вводить числа через пробел одной строкой, красивее будет}     a[i]: =x;     end;   k: =n div 2;   if (n mod 2)< > 0 then k: =k+1;   j: =1;   for i: =(k+1) to n do     begin     b[j]: =a[i];     j: =j+1;     end;   if (n mod 2)< > 0 then     begin     b[k]: =a[k];     k: =k-1;     j: =j+1;     end;   for i: =1 to k do     begin     b[j]: =a[i];     j: =j+1;     end;   for i: =1 to n do write(b[i],' '); end.

Вцелом к профессиональным навыкам системного программиста можно отнести языки программирования, методы сборки новых программ из готовых частей, трансляторы, программы отладки в терминах высокоуровневых языков, библиотеку готовых заготовок. еще одно новой профессией является операционщик – разработчик операционных систем. данные системы являются сердцем программного обеспечения компьютера. именно они вводом в компьютер информации, которая поступает с клавиатуры или дисков, помещением выходных и входных данных на запоминающих устройствах, а еще манипуляцией с ними. операционные системы с каждым годом все более усложняются, ведь вырастают потребности массового пользователя, а также требования техники и науки. именно поэтому от специализации системного программирования отделилась новая специализация – разработчик операционных систем или операционщик.а объединения нескольких вычислительных машин, возникновение и локальных сетей потребовало от операционных систем исполнения все новых функций. в связи с этим возникла и новая специальность – программист-сетевик. специалисты, которые занимаются разработкой сетевых программ, должны хорошо разбираться в системах протоколов, которые приняты для данной сети, правилах формирования адресов различных точек сети, способах транспортировки информации и прочем. программисты-сетевики, профессионалы своего дела, могут сжимать данные на входе, а также расшифровывать ее на выходе.