Записать в файл последовательного доступа N произвольных натуральных чисел

@Влад12345 · Регистрация: 25.10.2013

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

Записать в файл последовательного доступа N произвольных натуральных чисел. Переписать в другой файл последовательного доступа те элементы, которые кратны К. Вывести полученный файл на печать.

@Jener · 18.01.2014, 17:42

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
uses crt;
var f, f1 : file of byte;
    N, i, a, k : byte;
begin 
  clrscr;
  assign(f,'f.dat');
  assign(f1,'f1.dat');
  rewrite(f);
  write('N = '); readln(N);
  randomize;
  for i := 1 to n do write(f,random(50));
  reset(f);
  write('k = '); readln(k);
  rewrite(f1);
  writeln('Исходный файл ');
  while not eof(f) do begin
    read(f,a);
    if a mod k = 0 then write(f1,a);
    write(a:4);
  end;
  writeln;
  writeln('Файл с числами кратными ',k,' ');
  reset(f1);
  while not eof(f1) do begin
    read(f1,a);
    write(a:4);
  end;
  readln;
end.

@Влад12345 · 20.01.2014, 12:36 **[ТС]**

спасибо большое

Добавлено через 32 секунды
Торович, спасибо можешь ещё 2 программы написать

@ermolay · 20.01.2014, 12:40

Комментарий модератора

Влад12345, для каждой задачи создавайте отдельную тему, Читайте правила форума

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух kumehtar 07.11.2025 Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.	Новая зверюга 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 г. ) Поскольку мы продолжаем изучать гены, которые играют ведущую роль в развитии рака, в рамках проекта "Картирование раковых. . .

@Влад12345 0 / 0 / 0 Регистрация: 25.10.2013 Сообщений: 31

	Записать в файл последовательного доступа N произвольных натуральных чисел 18.01.2014, 15:46. Показов 3520. Ответов 3 Метки нет (Все метки) Записать в файл последовательного доступа N произвольных натуральных чисел. Переписать в другой файл последовательного доступа те элементы, которые кратны К. Вывести полученный файл на печать. 0

@Влад12345 0 / 0 / 0 Регистрация: 25.10.2013 Сообщений: 31
	20.01.2014, 12:36 [ТС]
	спасибо большое Добавлено через 32 секунды Торович, спасибо можешь ещё 2 программы написать 0

Опции темы