Program calk; uses crt; var a, b, c, d, x1, x2 : real; begin textcolor(red); gotoxy(10, 5); write('вас калькулятор, способный решать квадратные уравнения'); gotoxy(10, 6); write('введите а='); readln(a); gotoxy(10, 7); write('введите b='); readln(b); gotoxy(10, 8); write('введите с='); readln(c); d: =b*b-4*a*c; readln(d) if d< 0 then begin gotoxy(10, 9); textcolor(red); write('нет действительных корней') end else begin if d=0 then begin gotoxy(10, 10); textcolor(red); x1: =(-b/2*a); write('уравнение имеет один корень и он равен: x1 =', x1: 2: 2, ''); end else begin if d> 0 then begin x1: =(-b-sqrt(d))/(2*a); x2: =(-b+sqrt(d))/(2*a); write('уравнение имеет 2 корня и они равны: x1 =', x1: 2: 2, ' ', 'x2=', x2: 2: 2) end; 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