Заполните все элементы массива из 10 элементов значением x введённым с клавиатуры. python.
265
272
Ответы на вопрос:
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
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
meli1234120.03.2023 14:42
-
Aruna3027.11.2022 00:55
-
99Dia26.04.2021 08:13
-
littlecat12313.05.2021 06:27
-
Herty2243601.08.2022 01:21
-
лиор2009.01.2020 06:33
-
funisinfinity2602.06.2021 11:38
-
Raimbek71127.04.2020 00:05
-
karinochka66604.09.2020 11:20
-
ayvazova201015.06.2022 19:24
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.