Записать в файл - g все четные числа файла - f, а в файл - h все нечетные числа

@Virus2036 · Регистрация: 22.12.2008

Студворк — интернет-сервис помощи студентам

№2 Программирование и работа с файлами:
Дан файл - f, компоненты которого являются целыми числами. Записать в файл - g все четные числа файла - f, а в файл - h все нечетные числа файла - f.

@Gidropon · 18.04.2013, 01:34

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
program xxx;
 
var
f,g,h : file of integer;
i,x,y : integer;
 
begin
    assign(f,'f.txt');
    rewrite(f);
    write('Введите кол-во чисел: ');
    readln(x);
    {заполнение исходного файла f рандомными целыми числами}
    randomize;
    for i := 1 to x do
        begin
            y := random(10)+1;
            write(f,y);
        end;
    close(f);
    {запись четных в -g, а нечетных в h}
    assign(g,'g.txt');
    assign(h,'h.txt');
    rewrite(g);
    rewrite(h);
    reset(f);
    while not eof(f) do
        begin
            read(f,y);
            if y mod 2 = 0 then
                write(g,y)
            else
                write(h,y);
        end;
    {тест, вывод на экран}
    writeln('Файл g:');
    reset(g);
    while not eof(g) do
        begin
            read(g,y);
            write(y,' ');
        end;
    writeln;
    writeln('Файл h:');
    reset(h);
    while not eof(h) do
        begin
            read(h,y);
            write(y,' ');
        end;
    close(f);
    close(g);
    close(h);
    readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Новая зверюга volvo 07.11.2025 Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .	Инференс ML моделей в Java: TensorFlow, DL4J и DJL Javaican 05.11.2025 Python захватил мир машинного обучения - это факт. Но когда дело доходит до продакшена, ситуация не так однозначна. Помню проект в крупном банке три года назад: команда data science натренировала. . .	Mapped types (отображённые типы) в TypeScript Reangularity 03.11.2025 Mapped types работают как конвейер - берут существующую структуру и производят новую по заданным правилам. Меняют модификаторы свойств, трансформируют значения, фильтруют ключи. Один раз описал. . .	Адаптивная случайность в Unity: динамические вероятности для улучшения игрового дизайна GameUnited 02.11.2025 Мой знакомый геймдизайнер потерял двадцать процентов активной аудитории за неделю. А виновником оказался обычный генератор псевдослучайных чисел. Казалось бы - добавил в карточную игру случайное. . .	Протоколы в Python py-thonny 31.10.2025 Традиционная утиная типизация работает просто: попробовал вызвать метод, получилось - отлично, не получилось - упал с ошибкой в рантайме. Протоколы добавляют сюда проверку на этапе статического. . .
C++26: Read-copy-update (RCU) bytestream 30.10.2025 Прошло почти двадцать лет с тех пор, как производители процессоров отказались от гонки мегагерц и перешли на многоядерность. И знаете что? Мы до сих пор спотыкаемся о те же грабли. Каждый раз, когда. . .	Изображения webp на старых x32 ОС Windows XP и Windows 7 Argus19 30.10.2025 Изображения webp на старых x32 ОС Windows XP и Windows 7 Чтобы решить задачу, использовал интернет: поисковики Google и Yandex, а также подсказки Deep Seek. Как оказалось, чтобы создать. . .	Passkey в ASP.NET Core identity stackOverflow 29.10.2025 Пароли мертвы. Нет, серьезно - я повторяю это уже лет пять, но теперь впервые за это время чувствую, что это не просто красивые слова. В . NET 10 команда Microsoft внедрила поддержку Passkey прямо в. . .	Последние результаты исследования от команды MCM (октябрь 2025 г.) Programma_Boinc 29.10.2025 Последние результаты исследования от команды MCM (октябрь 2025 г. ) Поскольку мы продолжаем изучать гены, которые играют ведущую роль в развитии рака, в рамках проекта "Картирование раковых. . .	Мысли в слух kumehtar 29.10.2025 Обнаружил, что мысли лучше писать короткими фразами. Таким образом внимание читателя успевает охватить всю фразу сразу, за один раз, не соскакивая и не прерываясь. А если писать это длинным текстом,. . .

@Virus2036 0 / 0 / 0 Регистрация: 22.12.2008 Сообщений: 28

	Записать в файл - g все четные числа файла - f, а в файл - h все нечетные числа 18.04.2013, 00:00. Показов 1622. Ответов 1 Метки нет (Все метки) №2 Программирование и работа с файлами: Дан файл - f, компоненты которого являются целыми числами. Записать в файл - g все четные числа файла - f, а в файл - h все нечетные числа файла - f. 0

Опции темы

Записать в файл - g все четные числа файла - f, а в файл - h все нечетные числа

Решение