lenaa666

23.12.2022 13:22

ОБЖ

Есть ответ 👍

«Правила безопасности при обращении с бытовой химией и лекарствами:

299

479

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

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

nermakov

ОБЖ

4,8(32 оценок)

акуратно поводитися з побутовою хімією та ліками

Объяснение:

тому що можна на щось розбити

Оливка134

ОБЖ

4,7(83 оценок)

var f1,f2,f3:text;

n,i,a,b:integer;

begin

//создадим исходные файлы, можно вынести в отдельную программу

//или создать файлы вручную

randomize;

assign(f1,'f1.txt');

rewrite(f1);

assign(f2,'f2.txt');

rewrite(f2);

write('Сколько чисел ввести в первый файл n=');

readln(n);

writeln('Содержание файла f1:');

a:=1;

for i:=1 to n do

begin

a:=a+random(5);

write(f1,' ',a);

write(' ',a);

end;

writeln;

write('Сколько чисел ввести во второй файл n=');

readln(n);

writeln('Содержание файла f2:');

a:=1;

for i:=1 to n do

begin

a:=a+random(5);

write(f2,' ',a);

write(' ',a);

end;

writeln;

reset(f1);

reset(f2);

assign(f3,'f3.txt');

rewrite(f3);

//если не конец файла, то читаем числа иначе создаем барьер из

//максимально возможного целого числа

if not eof(f1) then read(f1,a) else a:=maxint;

if not eof(f2) then read(f2,b) else b:=maxint;

while (a<maxint) or (b<maxint) do//пока оба файла не кончились

begin

if (a<=b) and (a<maxint) then //если 1<=2

begin

write(f3,' ',a);//1 пишем в файл 3

if not eof(f1) then read(f1,a) else a:=maxint;//если не конец 1,

//то читаем следующее , иначе барьер

end

else if b<a then //иначе если 2<1 то же но со 2 файлом

begin

write(f3,' ',b);

if not eof(f2) then read(f2,b) else b:=maxint;

end;

reset(f3);//смотрим что получилось

writeln('Слияние файлов:');

while not eof(f3) do

begin

read(f3,a);

write(' ',a);

end;

close(f1);

close(f2);

close(f3);

end.

Объяснение:

Вроде бы так, я не слишком в этом хорош.

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

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

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

Популярно: ОБЖ

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

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

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

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

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

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