ИНФОРМАТИКА Не понимаю абсолютно, что на картинке. Там написаны варианты, но у меня 2 вариант, возможно надо все выполнить (хз), если вы понимаете. о чем идет речь, то должны понять. В задании требуется ввести дату рождения, моя: 25 июня. Прикрепил фотку, и на всякий случай сам PDF-файл (Мало ли, кому не видно). Сделайте в Excel)
procedure TfrmMain.FindFilesOnDisk(Dir : string);
var SR : TSearchRec;
Err : integer;
i, j : integer;
st : string;
begin
if (Dir[Length(Dir)] <> '\') then Dir := Dir + '\';
Err := FindFirst(Dir + '*.*', faAnyFile, SR);
while Err = 0 do
begin
j := 0;
st := AnsiUpperCase(SR.Name);
if lbDirs.Items.Count > 0 then //Если в списке есть каталоги
//Проверить, нет ли среди них
for i := 0 to lbDirs.Items.Count - 1 do
if lbDirs.Items[i] = st then //найденного
begin
j := 1;
break;
end; //if lbDirs.Items[i] = st then
if j = 0 then
begin
if (SR.Name <> '.') and
(SR.Name <> '..') and
((SR.Attr and faDirectory) <> 0) then
begin
inc(NumDir);
DirList.Add(Dir + st);
frmMain.sbMain.Panels[1].Text := IntToStr(NumDir);
pbFind.Position := NumDir;
Application.ProcessMessages;
FindFilesOnDisk(Dir + SR.Name);
end; //if (SR.Name <> '.') and
end; //if j = 0 then
Err := FindNext(SR);
end;
end;
Объяснение:
Ирина и Тимур = не информатика
Таня и Саша = не информатика
Тимур = боится физики
Таня, Тимур = не литература, но плавают
Тимур и Таня = поздравили математика
Ирена = cожалеет мало времени на литературу
победители по: физике, математике, информатике, литературе и географии.
Коля - информатика (Ирена и Тимур = учит, Камилла и Эльдар = интересуются)
Тимур - не физика, не литература, не математика, не информатика,
значит география
Таня - не информатика, не литература, не математика, уже не география => Физика
Ирена - не информатика, не физика, не география => Литература
Коля - Математика