Запишите следующие высказывания в виде логического выражения, определив высказывания и используя логические операции а) на уроке английского языка учащиеся слушали аудиозаписи на магнитофоне и пересказывали текст учебника; б) если число четное, то оно делится на 2
ответ:Многие страны перешли на т.н. «информационное общество», некоторые – в процессе перехода, в зависимости от факторов, влияющих на то или иное население. Все меньше уделяется внимания печатным изданиям: ученные говорят о том, что лет через 30 газеты, журналы, книги исчезнут с прилавков.
С одной стороны, электронные страницы – это хорошо, меньше вреда наносится окружающей среде, да и хранить большое количество информации легче и удобнее в электронном виде. С другой стороны – человечество становится все более зависимым от техники.
Var f,g:text;
I,n,k: integer; S,a,data: string; Begin
Assign(f,'F.txt');
Assign(g,'G.txt');
rewrite(f);
Writeln('Кол-во книг? ');
readln(n);
for i:=1 to n do begin
writeln('Фамилия автора, название и год издания книги № ',i,' ?');
readln(s);
writeln(f,s); // в фаил f забиваем данные
end;
close(f);
Writeln('Укажите автора для поиска ');
readln(a);
Rewrite(g);
Reset(f);
For i:=1 to 2 do begin
Readln(f,s);
if (pos(a,s)<>0) then begin //ищем автора
data:='';
for k:=length(s) downto 1 do begin
if (s[k]=' ') then begin
data:=data+copy(s,k+1,length(s)); //смотрим дату
break;
end;
end;
end;
if (strtoint(data) >= 1980) then writeln(g,s); //сравниваем дату
end;
close(f);
close(g);
end.
ABC Pascal