Дается 2 строки "Aidana" и "Adilet" . Вам нужно в результате получить смешанную строку из двух имен, буква за буквой. a = 'Aidana'
b = 'Adilet'
# Результат: "AAiddialneat"

var  s: string;   i: longint; begin  readln(s);   for i: =length(s) downto 1 do  begin  if s[i]=' ' then delete(s,i,1);   if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1);   end;   writeln(length(s)); end.

однажды один информатик сидел перед компьютером. а надо сказать, что информатик – это человек будущего, т.е.ребенок. и этому человеку необходимо было сделать слишком много уроков. он долго печатал, устал и захотел отдохнуть. воспользовавшись отсутствием родителей (что бывает достаточно редко), пронырливый информатик решил запустить самую убойную игру. самую – самую, которую родители обещали «удалить». информатик так увлекся, что сам оказался в компьютере, в той самой игре. но что-то ему эта игра быстро разонравилась, когда он оказался внутри ее. здесь грохотали пушки, летали самолеты, ездили танки и надо было быстро реагировать, если ты хочешь остаться в живых. информатику страшно захотелось выйти из игры, для этого ему надо было найти дверь с надписью «выход». о счастье, что он знал, все короткие пути и лазейки в этой игре. из игры он выбрался, но куда же он попал? он увидел большую улицу и много человечков, которые возили тележки с информацией. эти человечки беспрестанно толкали его. они были похожи друг на друга, но один привлек его внимание, т.к. явно был главным. он был самым высоким и имел отличающую его от всех надпись: «проводник». информатик обратился к нему и просил объяснить, где он находится. на что проводник ответил, что это главная улица worda. человечки продолжали суетиться, а информатик разглядывал с любопытством город. неожиданно он заметил, что в тени ползет какое –то существо, похожее на огромную гусеницу. она проползла и легла посередине тротуара. один из работников с тележкой споткнулся об нее, тележка перевернулась, а информация высыпалась. гусеница шустро поползла к рассыпавшимся буквам и начала их надкусывать (ибо! что не съем, то надкушу). увидев это, проводник достал мобильный телефон, набрал вызвал скорую . не прошло и несколько секунд как на реактивном моторе примчалась машина с надписью антивирус. из машины вылезли человечки в белых халатах, сделали ей успокоительный укол. затем посадили в машину и отправили в корзину. вот и сказке конец, а кто слушал – !

var a: array[1..100] of integer;

begin

  randomize; {чтоб рандом был разный для каждого запуска програмы}

  for i: = 1 to 100 do

      if i mod 2 =0 then a[i] : = 2*random(100)+1; {формула нечетного числа}

      else a[i]: =2*random(100);

end.

есличто непонятно - пиши в сообщения, растолкую

введем обозначения:

s-i - высказывание: ученик s (где s - первая буква фамилии) убирал i-й класс.

p: (q-i, r-i),  - ученик p высказал q-i и r-i

s-i = f - высказывание s-i - ложно, а s-i = t высказывание s-i - истинно.

тогда, по условию :

1) a: (a-9, c-7)

2) k: (к-9, а-8)

3) с: (с-8, к-10),

где в каждой паре (q-i, r-i) только одно из высказываний является верным (*).

предположим в начале, что а-9 = t. тогда из 2) и (*) следует, что (k-9 = f, а-8 = f) - противоречие, т.к. одно из высказываний в паре должно быть верным. следовательно, предположение а-9 = t - не верно, и а-9 = f.

пусть a-9 = f. тогда из 1) и *) следует, что c-7 = t. из 3) и *) следует, что c-8 = f. откуда получим из 3), что к-10 = t. значит, согласно 2) (к-9 = f, а-8 = t)

итак, c-7 = t, к-10 = t и а-8 = t следовательно, савельев убирал 7-й класс, костин - 10-й, андреев - 8-й класс. давыдов, следовательно, убирал оставшийся, 9-й класс (т.е. д-9 = т).