как сделать задание в паскале. ни чего не получается, если можно то формулы напишите для таблиц...

будешь говорить правду, то тебя возненавидят люди. Если ты будешь лгать, то тебя возненавидят боги. Но ты должен говорить правду или лгать. Значит, тебя возненавидят люди или возненавидят боги”.

полученную двоичную последовательность. Вот этот код:А – 0; Б – 100; В – 1010; Г – 111; Д – 110. Требуется сократить для одной избукв длину кодового слова так, чтобы код по-прежнему можно былодекодировать однозначно. Коды остальных букв меняться не должны.Каким из указанных способов это можно сделать?

1)для буквы В – 101
2)это невозможно
3)для буквы В – 010
4)для буквы Б – 10 Пожалуйста объясните как решать, мне не просто переписать, мне надо понять как решать правильно.

Sr_Ves_Bag:Real; {Средний вес вещи} End; Var Bagaz_Pas:Array[1..30] Of Bagaz; Flag:Boolean; N,i,Kol1,Kol2:Byte; Sr_Ves:Real; {Средний вес одной вещи всего багажа} Sr_Kol:Real; {Среднее количество вещей} Begin WriteLn('Задайте количество пассажиров:'); ReadLn(N); For i:=1 To N Do With Bagaz_Pas[i] Do Begin WriteLn('Пассажир N',i); Write('Количество вещей: '); ReadLn(Kol); Write('Общий вес: '); ReadLn(Ves); Sr_Ves_Bag:=Ves/Kol; {Средний вес вещи} WriteLn; {Пропуск пустой строки} End; Sr_Ves:=0; {Начальные значения} Sr_Kol:=0; {Нахождение среднего веса вещи всего багажа и} {среднего количества вещей} For i:=1 To N Do With Bagaz_Pas[i] Do Begin Sr_Ves:=Sr_Ves+Sr_Ves_Bag; Sr_Kol:= Sr_Kol+Kol; End; Sr_Ves:=Sr_Ves/N; Sr_Kol:=Sr_Kol/N; WriteLn('Задание а)'); Flag:=False; For i:=1 To N Do With Bagaz_Pas[i] Do If abs(Sr_Ves_Bag-Sr_Ves)<=0.3 Then Begin WriteLn('Кол-во вещей: ',Kol,' их вес: ',Ves); Flag:=True; End; If Not Flag Then WriteLn('Таких нет'); WriteLn('Задание б)'); Kol1:=0; {Кол-во пассажиров, имеющих более 2-х вещей} Kol2:=0; {Кол-во пассажиров, вещей у которых} {больше среднего} For i:=1 To N Do With Bagaz_Pas[i] Do Begin If Kol>2 Then Kol1:=Kol1+1; If Kol>Sr_Kol Then Kol2:=Kol2+1; End; WriteLn('Пассажиров, у которых больше 2-х вещей: ', Kol1); WriteLn('Пассажиров, у которых вещей большесреднего: ', Kol2); WriteLn('Задание в)'); Flag:=False; For i:=1 To N Do With Bagaz_Pas[i] Do If (Kol=1) and (Ves<30) Then Flag:=True; If Flag Then WriteLn('Такой пассажир имеется') Else WriteLn('Такого пассажира нет'); End.

операций.Спасибо

Пожалуйста помогите сделать задание в паскале.







Дана
матрица А(3.3)

1)

а) Петя: "Я не ел. Маша тоже не ела."
б) Вася: "Маша действительно не ела. Это сделал Петя"
в) Маша: "Вася врет. Это он съел."

Выясните, кто ел варенье, если известно, что двое из них оба раза сказали правду, а третий один раз соврал, а один раз сказал правду.(Если можно, то с помощью лог. формулы или таблицы, пожалуйста)

"Разработать программу,
которая осуществляет в текстовом файле поиск заданных слов. Слова
последовательно вводятся с клавиатуры. Для каждого слова должно определяться
количество вхождений и номера строк текста. Если указанное слово в файле
отсутствует, то программа должна выводить соответствующее сообщение."
И если можно, то и блок-схему.
Заранее спасибо!