Выполнить (записать таблицу с решение м в тетрадь): В одной деревне живут три школьника: Саша, Коля и Петя. Они осваивают сельскохозяйственные профессии. Один из них готовится стать трактористом, другой – садовником, третий – комбайнером. В разное время нами были записаны следующие сказанные ими фразы: 1) Петя, ты меня не жди, я должен осмотреть свой комбайн. 2) Наблюдал я вчера, Коля, твой осмотр машины и подумал, что держать машину в отличном состоянии не легче, чем вывести новый сорт яблок. 3) Завтра, Коля, не приходи, я буду регулировать работу молотилки у комбайна. Какой сельскохозяйственной профессией овладеет каждый из ребят

Саша - комбайнер

Петя - садовник

Коля - тракторист

Объяснение:

Петя, ты меня не жди, я должен осмотреть свой комбайн, значит Петя не комбайнер.

Завтра, Коля, не приходи, я буду регулировать работу молотилки у комбайна, значит Коля тоже не комбайнер.

Остается только Саша - комбайнер.

Наблюдал я вчера, Коля, твой осмотр машины и подумал, что держать машину в отличном состоянии не легче, чем вывести новый сорт яблок.

Остались 2 прфессии: садовник и тракторист, если Петя наблюдал за ремонтом машины, значит он садовник, следовательно Коля - тракторист.

Символ-это набор команд состоящих из единиц и нулей,любое слово вводимое тобой или выведонное тебе состоит из этих последовательностей. Например символ I (Я) зашифрован так 0100 1001 <-- 8 этих битов образуют 1 символ,называемым байтом,поэтому любой текст,изображение,видео(там немного другая схема действует),все это всего лишь грандиозный набор команд,разговоры по телефону тоже кодируются из вибрации в набор импульсов и на обратном выходе опять преобразуются в нам всем привычные слова.Любые механизмы,и даже мы с Вами можем передавать информацию,в том числе Азбукой Морзе,даже несколько последовательно сформулированных щелчков пальцев несут в себе информацию,главное ее понять,расшифровать и преобразовать,в видео,аудио,текст,фотографию.

// PascalABC.NET 3.0, сборка 1073
var
  a,b,c:integer;
begin
  Write('Введи a,b,c: '); Read(a,b,c);
  if (a=b) or (a=c) or (b=c) then Writeln('Есть пара одинаковых')
  else Writeln('Все числа различные')
end.

Тестовое решение:
Введи a,b,c: 6 3 -12
Все числа различные

Введи a,b,c: 5 -4 5
Есть пара одинаковых

// PascalABC.NET 3.0, сборка 1073
var
  n:string;
  a,b:char;
begin
  Write('Введи натуральное число n: '); Readln(n);
  Write('Введи подряд пару разыскиваемых цифр: '); Read(a,b);
  if Pos(a,n)>0 then Writeln('В числе есть цифра '+a)
  else Writeln('В числе цифры '+a+' нет');
  if Pos(b,n)>0 then Writeln('В числе есть цифра '+b)
  else Writeln('В числе цифры '+b+' нет')
end.

Тестовое решение:
Введи натуральное число n: 3141592653589793
Введи подряд пару разыскиваемых цифр: 47
В числе есть цифра 4
В числе есть цифра 7

// PascalABC.NET 3.0, сборка 1073
var
  i,n:integer;
  fiba,fibb,fib:longint;
begin
  Write('Введи натуральное число (1-46): '); Read(n);
  if n<3 then Writeln('Число Фибоначчи равно 1')
  else begin
    fiba:=1; fibb:=fiba;
    for i:=3 to n do begin
      fib:=fiba+fibb;
      fiba:=fibb; fibb:=fib
    end;
    Writeln('Число Фибоначчи равно ',fib)
  end
end.

Тестовое решение:
Введи натуральное число (1-46): 13
Число Фибоначчи равно 233