Исполнить программу Пример 2. Возвести число 3 в 4-ю степень. №2 Составить программу, которая вычисляет сумму всех чётных чисел от 2 до n.

Python

Объяснение:

№1

a = int(input())

n = int(input())

print(a**n)

№2

n = int(input())

l = 0

for i in range(2,n+1):

   if i // 2 and i % 2 == 0:

       l += i

print(l)

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

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

Электронная почта является наиболее популярным дополнением к вычислительным сетям. Это но весьма полезное средство. При использовании для связи между сотрудниками всего офиса она оказывается удобнее телефона, так как позволяет передавать отчеты, таблицы, диаграммы и рисунки, которые по телефону передать трудно.

Для электронной почты выпускается довольно много программных продуктов, поэтому с выбором нет проблем. Так, в некоторых случаях даже поставщики операционных систем уже комплектуют свои продукты средствами поддержки электронной почты. Обычно электронная почта работает в пределах локальной сети, но такие системы глобальных вычислительных сетей, как MCI Mail, INTERNET, RELCOM, CompuServe и др., предлагаю‏т электронно-почтовые услуги в национальном и даже в мировом масштабе. Работа электронной почты, не зависит от разницы в часовых поясах, и можно вести переписку с электронной почты с адресатом, который находится на другом конце света.

Обычно для создания и получения сообщений электронной почты применяются специальные почтовые программы, такие как Microsoft Outlook Express, Netscape Composer, The Bat, Eudora Pegasus, Microsoft Outlook и т.д..

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

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

Объяснение:

1)      а:=b(13)+a(-2)*3=13+(-2*3)=13-6=7

2)      a) readln(а); readln(х);

б) writeln(z)

в)    var b,c : real; (чаще всего используется при нахождении вещественных чисел)

        var a: integer; (чаще всего используется при нахождении вещественных чисел)

г) if d = a(число, которому нужно прировнять, этот фрагмент цикла(если…,то ..иначе)) then d:=d+20; д) z := x + y; ( : = это знак присвоения)
3) 

PROGRAM PR1;

var w,s,b: integer;

BEGIN

READLN (S, B);

w:= ((12*s) + (26*b));

WRITELN (W);

end.
4) Запишите на языке Паскаль следующие условия:
а) f >105 ;
б)  a<184  ;
в)  w<>181;  
г)  z>0;
д) z<=d;
е) (y*x)>=(d+w);
ж)  (w-d)<88;
з) f>=1;
5. Запишите на языке Паскаль команду ветвления для решения следующей задачи:

а) if  a<> 21 then a:=a+28 else a:=a-51;
б) if  a mod  2=0 then a:=a+5 else a:=a-12;

6. Запишите на языке Паскаль команду цикла для решения следующей задачи:
а)  PROGRAM PR1;
var j,p: integer;
BEGIN j:=1; p:=0;
While j>=66 do BEGIN p:= p*j; j:=j+1:
WRITELN (‘произведение чисел = ‘, p);
end.
б)  

PROGRAM PR1;

var n:integer;

begin

for n:=1 to 7 do

writeln('trud');

end.