Решение с использованием файлов 1. дано число к и файл, содержащий целые числа. вывести элемент файла с номером к. если такой элемент отсутствует, то вывести 0. 2. дан файл вещественных чисел. создать 2 новых файла, в первый из которых содержит строки исходного файла с четными номерами, а второй с нечетными номерами.
223
394
Ответы на вопрос:
1) var k,a,i,n : integer; t : text; begin readln (k); n : = 0; assign (t,'test.txt'); reset(t); i : = 1; while not eof(t) do begin read (t,a); if a = k then n : = i; i : = i +1; end; close (t); writeln (n); end.2) var t,t1,t2 : text; i : integer; a : real; begin assign (t,'text.txt'); reset (t); assign (t1,'r1.txt'); rewrite (t1); assign (t2,'r2.txt'); rewrite (t2); i : = 1; while not eof(t) do begin read (t,a); if i mod 2 = 1 then write (t1,a: 3: 3,' ') else write (t2,a: 3: 3,' '); i: = i +1; end; close (t); close (t1); close (t2); end.
Каждый человек не смотря умеет плавать или нет , хорошо плавает или "знает" должен строго соблюдать правила поведение на воде . купаться нужно в разрешенных , знакомых водоемах , да и не в том дело знаком ли водоем , но и места где точно безопасно на дне могут оказаться бревна, камни, коряги . обсудим и это . если вы зацепились за корягу / крючок рыболовный или ещё что - то . не пытайтесь порвать вещь об которую вы зацепились .и не паникуйте . громко попросите у взрослых . в это время сами попытайтесь снять вещь которой вы зацепились . нельзя выплывать на судовой ход и приближаться к судну .если ваш друг или любой другой человек начал тонуть зовите взрослых , а если сами хорошо плаваете то подплывите к нему подплывите сзади возьмите за спину или за волосы и плывите на берег . если тонуть начали вы лягте на спину успокойтесь , дышите ровно зовите взрослых но не разводите панику ! если вы попали в водоворот, наберите побольше воздуха, нырните и постарайтесь резко свернуть в сторону от него . не хватать друг друга за руки и ноги во время игр на воде. если у вас свело судорогой мышцы, ложитесь на спину и плывите к берегу, постарайтесь при этом растереть сведенные мышцы. не стесняйтесь позвать на . не устраивайте в воде игр, связанных с захватами .
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
ZA2516.05.2022 03:26
-
wexly24.05.2020 11:48
-
diliana20040508.10.2021 12:02
-
nikitka19982120.11.2020 21:16
-
studentka8716.06.2020 15:14
-
НадюшаLOVEYOU13.04.2023 13:37
-
dinamis0520.08.2021 09:59
-
Zhenkyaaaa20.11.2020 04:01
-
2o2o15.10.2022 12:38
-
ArtemFediroolosb27.06.2022 06:05
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.