1-БӨЛІМ БОЙЫНША ТЕСТ ТАПСЫРМАЛАРЫ
1. XVI-XVI ғасырларда пайдаланылған есептеу курылгысы​

Интересная задачка.
попробую объяснить как решал.
сначала расставим то, что известно однозначно.
это то, что Николай встречается со Ольгой
потом Толя - поросенок. потом Миша - Томин
на этом все. теперь размышляем.
Сидоров не Толя и не Саша. а так же не Николай(потому что пришел с Леной)
остаются Вася и Миша. однако фамилию Миши мы знаем. следовательно Сидоров - Вася.
Сразу же записываем к Васе Лену.
теперь с маской.
Он не кот(Иванов), не собака(Петров), не поросенок(Толя), не бычок(Света) следовательно он мишка.
Толя пришел не с Таней и не со Светой. так же не с Леной(Вася) и не с Ольгой. остается только Катя.
Толя не Сидоров(Вася), не Томин (миша), не Иванов(Катя), не Петров(собака) остается Васильев
Николай не Сидоов(Вася), не Томин(миша), не Васильев(Толя) и не Петров(пунтк 1)
следовательно он Иванов.
сразу пишем к нему кота
остается одна фамилия - Петров и это Саша
так же сразу пишем собаку к нему.
из масок остался только бык - Миша
с быков встречается Света
ну и последняя девушка Таня остается Саше
вот и все)
 но можно последовать совету, который написали раньше и составить бооольшую таблицу. тот вариант действительно нагляднее

var

 s:string;

 i,count:integer;

 a: set of char;

begin

 i:=3;

 readln(s);

 writeln('1)');

 if length(s)>=3 then

   repeat

     write(s[i]);

     i:=i+3;

   until i>length(s)

     else

       writeln('error');

 writeln;

 writeln('2)');

 i:=2;

 repeat

   write(s[i]);

   i:=i+2;

 until i>length(s);

 writeln;

   i:=1;

 repeat

   write(s[i]);

   i:=i+2;

 until i>length(s);

 writeln;

 writeln('3)');

 a:=[];

 count:=0;

 for i := 1 to length(s) do

   if s[i] in a then

     else

       begin

         a:=a+[s[i]];

         inc(count);

       end;

 writeln(count);

end.