Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

25th
Июн

Файлы, Паскаль

Posted by obzor under Delphi

В файле f записаны целые числа. Написать программу, которая в файл g записывает положительные числа, а файл h — отрицательные.

Stilet

var f,g,h:file of integer; i:integer;
begin
 assign(f,'f'); reset(f); assign(g,'g'); rewrite(g); assign(h,'h'); rewrite(h);
 while not eof(f) do begin
  read(f,i); if i<0 then write(g,i) else write(h,i);
 end; close(f); close(g); Close(h);
end.

тема на форуме

Случайные статьи

Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru

Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию: