Создать файл f, содержащий сведения о книгах. сведения о каждой из книг – это фамилия автора, название книги и год издания. с другой программы найти все книги данного автора, изданные с 1980 года. сохранить эту информацию в файле g.
196
414
Ответы на вопрос:
Program primer; 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
Просто зайди в макет(находится в верхнем меню) там отступы есть, если что-то нужно дополнительно, выдели текст который нужно отредактировать и правой кнопкой мыши, и там че-то типо редактирование или настройки, ну короче разберёшься. там все можешь подстроить насчёт маркирование и нумерирование, также выдели текст и нажми правую кнопку мыши там выйдет окно с маркированием перейдёшь туда, там можешь выбрать тире, треугольники и другое, то что нужно. с нумерацией также
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Bunny26510.03.2021 05:36
-
wehhc29.12.2021 14:05
-
dima2002eee07.01.2022 21:28
-
Banger123Mary12325.08.2022 03:33
-
Arina898706.07.2020 16:24
-
090904423.01.2020 07:21
-
belatarikova22.05.2020 01:51
-
ника1108200130.12.2021 04:42
-
elyakhina197603.06.2020 12:00
-
9Mesut813.11.2021 14:43
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.