Весы могут выдержать груз до 10 кг. Определите можно ли на них
взвесить покупку из n кг картофеля,
m кг огурцов и k кг томатов.
нужно сделать блок схему задания.
173
352
Ответы на вопрос:
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
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Ferzpi24.01.2021 06:39
-
tori20151218.05.2020 08:35
-
ervinbek200508.06.2020 02:07
-
katakoval24.01.2022 18:34
-
Майнур123456789009.05.2021 21:22
-
n254n21.03.2022 14:05
-
lyisa06.07.2022 11:45
-
викусик15013.10.2022 21:11
-
Мафаняяя02.03.2021 04:35
-
yananovoselova122.09.2020 03:41
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.