Корпоративные требования к почтовой перепискеписьмо состоит из трех частей1. Обращение2. текст письма3. Подпись4. исполнитель или сотрудник для связи с полными координатами(адреса: почтовый,E-mail, IСQ,телефон) Сетевой этикет Сетево́й этике́т (сетикет, нетикет — неологизм, является слиянием слов «сеть» (англ. net) и «этикет») — правила поведения, общения в Сети, традиции и культура интернет-сообщества, которых придерживается большинство. Это понятие появилось в середине 80-х годов XX века в эхоконференциях сети FIDO. Некоторые из правил сетевого этикета присутствуют в RFC 1855 (английский вариант). Правила этикета не являются всеобщими и жестко установленными — в разных сообществах они могут значительно различаться. Так как основная цель этикета состоит в том, чтобы не затруднять общение в сообществе, правила могут устанавливаться исходя из целей сообщества, принятого стиля общения, технических ограничений, и т. д. Некоторые правила записаны, и даже оформляются в виде формального устава, а иногда и просто в виде списка, другие правила нигде не записаны, но известны большинству членов сообщества и строго соблюдаются.
Var f:byte; x:real; Begin WriteLn('Выберите тип математической функции:'); WriteLn('1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.'); ReadLn(f); While f <> 0 do Begin Write('Введите x: ');ReadLn(x); Case f of 1: if x < 0 then WriteLn(x,'*(',x,') = ',x*x) else WriteLn(x,'*',x,' = ',x*x); 2: if x < 0 then WriteLn(x,'*(',x,')*(',x,') = ',x*x*x) else WriteLn(x,'*',x,'*',x,' = ',x*x*x); 3: if x < 0 then WriteLn('√',x,' = ',Sqrt(-x),'i') else WriteLn('√',x,' = ',Sqrt(x)); 4: if x = 0 then WriteLn('Ошибка: на ноль делить нельзя!') else if x < 0 then WriteLn('1/(',x,') = ',1/x) else WriteLn('1/',x,' = ',1/x); End; WriteLn; WriteLn('Выберите тип математической функции:'); WriteLn('1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.'); ReadLn(f); End; End.
a: array[1..100] of integer;
i, n, s: integer;
begin
readln(n);
s := 0;
for i := 1 to n do
begin
Readln(a[i]);
s := s + a[i];
end;
writeln('s = ', s);
end.