Найти количество четных чисел среди компонентов файла

@abelix · Регистрация: 30.11.2009

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

Дан фаил компоненты которого являются целыми числами.
Найти кол-во четных чисел среди компонентов

обьясните пожалуста как считать числа с файла

@Eugeniy · 27.12.2009, 19:15

Pascal

type fop=file of integer;
...........................
Procedure pare(var f:fop; var n:integer);
 var
  k:integer;
    begin  
      n:=0;    
              {Если ваш файл называеться file}
     assign(f,'file.dat');
       reset(f);
        while not eof(f) do begin
          read(f,k);
           if eof(f) then break;
            if k mod 2=0 then n:=n+1;
             end;
               close(f) 
              end;

@abelix 10 / 10 / 5 Регистрация: 30.11.2009 Сообщений: 119
		1
	Найти количество четных чисел среди компонентов файла 27.12.2009, 18:32. Показов 1398. Ответов 1 Метки нет (Все метки) Дан фаил компоненты которого являются целыми числами. Найти кол-во четных чисел среди компонентов обьясните пожалуста как считать числа с файла 0

	27.12.2009, 19:15

Найти количество четных чисел среди компонентов файла

Решение