Прог-ие 1К 2С / 7

program Project2;

{

7. Сформировать набор данных IntNum.txt из целых чисел, разделяя их пробелами.

Получить из него новый набор NotThree.txt,

в который переписать из исходного набора все числа, которые не делятся на 3.

Числа в новом наборе должны разделяться одним пробелом.

}

{$APPTYPE CONSOLE}

uses

SysUtils,

Windows;

var

read_file, write_file : text;

num : integer;

t , nabor : string;

first : boolean;

begin

{ TODO -oUser -cConsole Main : Insert code here }

first := true;

t := 'Введите набор целых чисел';

CharToOEM(PChar(t), PChar(t));

writeln(t);

readln(nabor);

assign(read_file,'IntNum.txt');

rewrite(read_file);

write(read_file, nabor);

close(read_file);

reset(read_file, 'IntNum.txt');

assign(write_file,'NotThree.txt');

rewrite(write_file);

while not eof(read_file) do

begin

read(read_file, num);

if num mod 3 > 0 then

begin

write(write_file, num, ' ');

if first then

begin

first := false;

t := 'Числа которые не делятся на 3:';

CharToOEM(PChar(t), PChar(t));

writeln(t);

end;

write(num, ' ');

end;

end;

close(read_file);

close(write_file);

if first then

begin

t := 'Все числа делятся на 3.';

CharToOEM(PChar(t), PChar(t));

writeln(t);

end

else

writeln;

t := 'Файлы созданы.';

CharToOEM(PChar(t), PChar(t));

writeln(t);

readln;

end.