Электро́нная по́чта (англ. email, e-mail [iˈmeɪl], от англ. electronic mail) — технология и служба по пересылке и получению электронных сообщений (называемых «письма», «электронные письма» или «сообщения») между пользователями компьютерной сети (в том числе — Интернета)[1].
Электронная почта по составу элементов и принципу работы практически повторяет систему обычной (бумажной) почты
// PascalABC.NET
begin
var num: integer;
while true do
begin
num := ReadlnInteger('введите 4-х значное число, num =');
if (num > 999) and (num <= 9999)
then break;
end;
var str := num.ToString;
foreach var x in str do
Println(x)
end.
Конфеты = А + Х = 3400
Торт = Х + В = 8200
Конфеты I Торт = А + Х + В = 9100
Конфеты & Торт = Х
Конфеты & Торт = Х = Конфеты + Торт - Конфеты | Торт = 3400 + 8200 - 9100 = 11600 - 9100 = 2500
Все еще проще можно написать
1.
Program chislo;
var i,s:Integer;
begin
i:=100;
while i<=999 do
begin
if (i mod 2 <> 0) then s:=s+i;
Inc(i);
end;
Writeln(s);
end.
2. Число в обратном порядке (ввод с клавиатуры)
Program sum_3;
var n,s:Integer;
begin
Read(n);
while(n>0) do
begin
s:=n mod 10;
n:=n div 10;
Write(s);
end;
end.
var
i: integer;
mas: array[1..12] of byte;
begin
randomize;
for i:=1 to 12 do
mas[i]:= random(20) + 1;
writeln('Сумма = ', mas[1]+mas[2]+mas[3]+mas[4]+mas[5]+mas[6]);
end.
