Наведіть приклади повідомлень, команд, вимог, правил, законів, які різні люди за різних обставин тлумачать однаково. 4. Наведіть приклади повідомлень, зрозумілих тільки одній людині, групі людей. 5. Чи можна повідомлення передавати за до технічних пристроїв? Наведіть приклади. 6. Чому при класифікації повідомлень розрізняють ознаки класифікації? Відповідь обґрунтуйте. 7. Наведіть приклади повідомлень, які мають інформаційну надлишковість. Чи трапляються подібні повідомлення в підручниках, періодичних видан- нях, ЗМІ тощо? Якщо так, то про що це свідчить? 8. Коли повідомлення можуть перетворитись на інформацію? 9. Що таке процес і якими є інформаційні процеси?. 3. Наведіть приклади повідомлень, команд, вимог, правил, законів

Идея следующая:
1.вводим год, месяц, день
2. проверяем, что год >=1900 и меньше 9999 при месяце меньшем 12 и год >=1900 и меньше 9998 при месяце равном 12. Если введенный год не удовлетворяет условию, то предлагаем ввести год заново до тех пор, пока условие не будет выполнено. Если введенный год удовлетворяет условию, то продолжаем проверку.
3. проверяем, что месяц от 1 до 12. При этом в переменную srav запомним максимальное число дней в введенном месяце с учётом високосного года. Если введенный месяц не удовлетворяет заданному условию, то предлагаем ввести месяц заново до тех пор, пока условие не будет выполнено. Если условие выполнено идём дальше.
4. проверяем, что день не превышает максимального числа дней (srav) в введенном месяце.Если день не удовлетворяет заданному условию, то предлагаем ввести день заново до тех пор, пока введенное значение не будет удовлетворять условию. Если условие выполнено, то продолжаем.
5. Выведем на экран введенную дату.
6. Вычисляем и выводим на экран следующий день за введенным, не забывая, что:
- если введен день равный последнему дню месяца, то следующий день - это 1 число следующего месяца.
- если введен последний день последнего месяца, то следующий день -это 1 число 1 месяца следующего года.

{1 задача}
var
  Form1: TForm1;
  s1,s2:string;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   s1:='stroka1';
   s2:='stroka2';
   Label1.Caption:=s1;
   Label2.Caption:=s2;

end;

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
   s:=s2;
   s2:=s1;
   s1:=s;
   Label1.Caption:=s1;
   Label2.Caption:=s2
end;

end.

{2 задача}
var
  Form1: TForm1;
  n:integer;
  a: array[1..10] of integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
 randomize;
 Label1.Caption:='';
 Label2.Caption:='';
 n:=10;
 for i:=1 to N do
 a[i]:=random(100);
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 for i:=1 to N do
 label1.Caption:= label1.Caption + ' '+inttostr(a[i]);
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
 for i:=1 to N do
 if a[i]<strtoint(edit1.Text) then
 label2.Caption:= label2.Caption + ' '+inttostr(a[i]);

end;

end.