Работа с файлами. Я новичок и что то вообще не могу сделать задачу

@Max058 · Регистрация: 23.05.2012

Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f, делящиеся на 2 и не делящиеся на 7.

@Nikitko_Cent · 31.05.2012, 03:03

Delphi

while not eof(f) do
  begin
    readln(f,n);
    
    if (strtoint(n) mod 2 = 0) and (strtoint(n) mod 7 <> 0) then
      writeln(g,n);
  end;

Это лишь набросок, думаю допилишь сам

@vilag · 31.05.2012, 03:08

Рекомендую немного исправить:

Delphi

n: integer;
...
 
while not eof(f) do
  begin
    read(f,n);
    
    if (n mod 2 = 0) and (n mod 7 <> 0) then
      writeln(g,n);
  end;

@Nikitko_Cent · 31.05.2012, 03:09

Сообщение от vilag

Рекомендую немного исправить:

Delphi

n: integer;
...
 
while not eof(f) do
  begin
    read(f,n);
    
    if (n mod 2 = 0) and (n mod 7 <> 0) then
      writeln(g,n);
  end;

Ну да

@Max058 · 31.05.2012, 09:30 **[ТС]**

Ага спасибо, думаю дальше сам напишу))

@Max058 0 / 0 / 0 Регистрация: 23.05.2012 Сообщений: 6
		1
	Работа с файлами. Я новичок и что то вообще не могу сделать задачу 30.05.2012, 23:44. Показов 621. Ответов 4 Метки нет (Все метки) Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f, делящиеся на 2 и не делящиеся на 7. 0

@Max058 0 / 0 / 0 Регистрация: 23.05.2012 Сообщений: 6
	31.05.2012, 09:30 [ТС]	5
	Ага спасибо, думаю дальше сам напишу)) 0