Придумай и расскажи короткую о том, как коля писал письмо другу. кодировал ли он при этом информацию?

Привет, Денис!  

Как ты поживаешь? Что нового? Мне подарили веб-камеру, так что теперь мы можем с тобой общаться по Скайпу. Жаль, то до лета, когда мы с тобой сможем увидеться, еще далеко. Но теперь ты можешь показать мне по Интернету свою коллекцию марок, о которой столько рассказывал. Как твоя учеба? У меня, увы, не всегда хорошо - не люблю физику. Как люди в ней разбираются? Зато у меня новое увлечение - стал собирать коллекцию рок-музыки 90-х годов. Не предсталяешь, сколько, оказывается, классных музыкантов тогда было!  

Пиши, не пропадай.  

Коля.

Привет дорогой друг!

Мое лето замечательно. Я весело отдыхал на море, загорал, собирал ракушки и гулял с друзьями. В конце лета меня отправили на дачу. Там я бабушке по хозяйству, а также ходил на речку. Полагаю, что это лето было самым лучшим в моей жизни!

А как ты отдохнул?

Нет,он не кодировал!

{#1 Деление на числа меньше 7}

begin

var F: boolean;

var a: integer; read(a);

 for var x := 7 downto 1 do

 begin

   F := (a mod x = 0) ? true : false;

   if F <> true then break;

 end;

end.

{#2 Находится ли точка внутри окружности}

begin

 var F: boolean;

 var z: cardinal;

 var x,y: double; read(x,y,z);

  x := (x<1)? x*-1:x;

  y := (y<1)? y*-1:y;

  if (x<z) and (y<z) then  

 F := true;

end.

{#3 В трехзначном числе есть три одинаковые цифры}

begin

 var F: boolean;

 var n: integer; read(n);

 var s := n.ToString;

 if (s[1] = s[2])  

    or (s[2] = s[3])  

     or (s[1] = s[3]) then

 F := true;

end.

{#4 Точки лежат на одной прямой}

begin

 var F: boolean;

 var x1,y1,x2,y2,x3,y3: integer;

 read (x1,y1,x2,y2,x3,y3);

 if (x2 - x1)*(y3 - y1) - (x3 - x1)*(y2 - y1) = 0 then

 F := true;

end.

{#5 Х или трёхзначное чётное число или четырёхзначное нечётное}

begin

var F: boolean;

var x:integer; read(x);

var s:=x.ToString;

if ((length(s) = 3) and (x mod 2 = 0)) or ((length(s) = 4) and (x mod 2 <> 0)) then

F := true;

end.

Группировка.Группировка объектов заключается в их выборке инструментом Pick Tool (Указатель) с последующей фиксацией взаимного расположения командой Group (Группировать). При этом свойства сгруппированных объектов не меняются. Допустима группировка с многократным вложением групп друг в друга. Обратная операция происходит пошагово - Ungroup (Отменить группировку) - или сразу над всеми отдельными объектами, сколько бы уровней вложения групп не существовало - Ungroup All (Разгруппировать все). Все команды группировки (разгрушш-ровки) доступны на панели свойств или из меню Arrange (Упорядочить).