На Паскале. В текстовый файл t1 записана последовательность целых чисел, разделенных пробелами. Написать программу, записывающую в текстовый файл t2 все положительные числа из t1.
На Паскале. В текстовый файл t1 записана последовательность целых чисел, разделенных пробелами. Написать программу, записывающую в текстовый файл t2 все положительные числа из t1.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
input, output: text;
number: integer;
begin
Assign(input, 't1.txt');
Assign(output, 't2.txt');
Reset(input);
Rewrite(output);
while not eof(input) do
begin
Read(input, number);
if number > 0 then
begin
Write(output, number, ' ');
end;
end;
Close(input);
Close(output);
end.