Напишите программу, которая выводит на экран значение n! включая следующую функцию function factorial (n: integer): integer; var p, i: integer; begin p: =1; for i: =1 to n do p: =p*i; factorial: =p; end;

Var n: integer;             ch: char; function  factorial  (n: integer): longint;   var p,i: integer;     begin        p: =1;       for i: =1 to n do p: =p*i;         factorial: =p; end; begin       write ('n = ');       readln (n);       writeln ('factorial: ',factorial(n));       readln; end.

электро́нная по́чта  (.  email, e-mail, от  .  electronic mail)  — технология и служба по пересылке и получению электронных сообщений (называемых «письма», «электронные письма» или «сообщения») между пользователями компьютерной сети (в том числе  —  интернета)[1].

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

достоинствами электронной почты являются: легко воспринимаемые и запоминаемые человеком адреса видаимя_пользователя@имя_домена  (например, [email  protected]); возможность передачи как простого текста, так и форматированного, а также произвольных файлов (текстовые документы, медиафайлы, программы, архивы, и  т.  д.[1]); независимость серверов (в общем случае они обращаются друг к другу непосредственно); достаточно высокая надёжность доставки сообщения; простота использования человеком и программами, высокая скорость передачи сообщений.

недостатки электронной почты: наличие такого явления, как  спам  (массовые рекламные и  вирусные рассылки); возможные задержки доставки сообщения (до нескольких суток); ограничения на размер одного сообщения и на общий размер сообщений в почтовом ящике (персональные для пользователей).

в настоящее время любой начинающий пользователь может завести свой бесплатный электронный почтовый ящик, достаточно зарегистрироваться на одном из интернет-порталов.

Const n=10;   var a: array[1..n] of integer; i,s1,s2: integer;   begin randomize; writeln('массив a: '); for i: =1 to n do   begin   a[i]: =random(51)-25;   write(a[i]: 4);   end; writeln; s1: =0; s2: =0; for i: =1 to n do   if a[i]< 0 then s1: =s1+a[i] else s2: =s2+a[i]; writeln('s1 = ',s1,' s2 = ',s2); if abs(s1)> s2   then writeln('yes, |',s1,'| > ',s2)   else writeln('no, |',s1,'| < = ',s2); end. пример: массив a:   -3   16   5 -14 -14   -4 -13 -25   13   16 s1 = -73 s2 = 50 yes, |-73| > 50