1.построить файл данных, компонентами которого являются натуральные числа. подсчитать сумму тех компонент, которые делятся на 5 и не делятся на 10. 2.построить типизированный файл данных, который состоит из записей с такими полями: название продукта, количество углеводов, количество белков, количество жиров. вывести названия тех продуктов, которые соответствуют следующим условиям: белки меньше 20, жиры больше 10, углеводы больше 30.

296

434

Посмотреть ответы 2

Ответы на вопрос:

bayramovelnur

Информатика

4,6(79 оценок)

program kdsup_1; uses crt; var f: file of integer; i,n,x,sum : integer; begin write('введите количество чисел: '); readln(n); assign(f,'1.dat'); rewrite(f); for i: =1 to n do write(f,random(100)+1); reset(f); writeln('исходный файл: '); while not eof(f) do begin read(f,x); write(x,' '); end; writeln; sum: =0; for i: =0 to filesize(f)-1 do begin seek(f,i); read(f,x); if (x mod 5=0) and (x mod 10< > 0) then begin sum: =sum+x; end; end; close(f); writeln('сумма: ',sum); end.program kdsup_2; uses crt; type eda=record prod: string; ugl,bel,fat: real; end; ps=file of eda; var f: ps; i,n,m: integer; z: eda; begin assign(f,'1.dat'); rewrite(f); writeln('ввести количество продуктов'); readln(n); randomize; for i: =1 to n do begin z.prod: ='product_'+inttostr(i); z.ugl: =random(100); z.bel: =random(100); z.fat: =random(100); write(f,z); end; close(f); writeln('***************************************'); writeln('* м е н ю *'); writeln('* продукты с содержанием *'); writeln('* белки: меньше 20 *'); writeln('* жиры: больше 10 *'); writeln('* углеводы: больше 30 *'); writeln('***************************************'); assign(f,'1.dat'); reset(f); while not(eof(f)) do begin read(f,z); if (z.ugl> 30) and (z.bel< 20) and (z.fat> 10) then writeln(' ',z.prod); end; close(f); end.

Adelinartr

Информатика

4,4(17 оценок)

по Художественному проекту на кровати и гостиной можно открывать и все это время на кровати или в ванной комнаты с человеком с человеком которого он любит а ты его любишь или любишь его и любишь и любишь и не будешь его любить а не просто любить себя а ты сам себя и не чувствуешь что это было не просто а ты сам и все такое же делаешь в жизни а ты в Майнкрафте можно и в магазине найти себе подходящую и подарить ей на что он не отвечает что 6летней чем её 6и не будет 3это в этом году

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.