Var
st:real;
i,n:integer;
t:array[1..31]of integer;
begin
writeln('Температура в январе:');
for i:=1 to 31 do
begin t[i]:=random(-10,5);
write(t[i],' ');
st:=st+t[i];
if t[i]<0 then n:=n+1
end;
st:=st/31;
writeln;
writeln('Число дней с отр.температурой: ',n);
writeln('Средняя температура: ',st:1:1)
<span>end.</span>
1) var i,n: Integer;
begin
i:=0;
writeln('Введите число');
readln(n);
while i<>n do
begin
Inc(i);
writeln(i);
end;
end.
2) var i,n,x,count: Integer;
begin
writeln('Введите кол-во цифр');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,' число');
readln(x);
Inc(count,x);
end;
writeln('Сумма чисел: ',count);
end.
Общее
можно посылать текст
можно посылать вложение типа фотографии, если хватает места/веса
указывается адрес получателя и отправителя
может быть не доставлено из-за неверного адреса или из-за тех. сбоев.
можно перенаправить письмо
дата прохождения через почтовую службу может служить подтверждением времени в различных спорах и разбирательсивах
возможно использовать шифрование
плюсы бумажной почты:
письмо и вложения реальны и не требуют спец. средств для прочтения
очень разнообразные способы доставки - голубиная почта, курьерская почта и т.д.
кол-во спама обычно меньше, чем в эл. почте
можно посылать письмо без указания обратного адреса
плюсы эл. почты:
скорость доставки
бесплатно
значительно легче шифровать/расшифровать, чем бумажную
возможность получить подтверждение о получении, прочтении
возможность настройки автомат. ответа
возможность "массовой рассылки"
копия отправленного письма остается у отправителя
получить письмо можно из любой точки интернета, а не в определенном месте
можно иметь множество эл. почтовых ящиков.
Я думаю так:
И П С
П ИС
С И П
Возможные варианты очереди.
Program chislo;
uses crt;
var
a:integer;
begin
writeln('Введите число : ');
readln(a);
if((a Div 100)>(a Mod 10)) then
writeln('Да')
else
if((a Div 100)<(a Mod 10)) then
writeln('Нет')
end.