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

@WresDAG. · Регистрация: 15.12.2010

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

Заполнить файл f целыми числами,полученые с помощью генератора случайных чисел.Найти количество удвоенных нечётных чисел среди компонентов файла.

@sanya923 · 26.03.2011, 11:43

Pascal

const
  n=10;
var
  a,i,res:integer;
  f:text;
begin
  res:=0;
  assign(f,'1.txt');
  rewrite(f);
  for i:=1 to n do
    write(f,random(30),' ');
  close(f);
  reset(f);
  for i:=1 to n do
    begin
      read(f,a);
      if (a mod 2 = 0)and((a div 2) mod 2 <> 0) then
        inc(res);
    end;
  close(f);
  writeln('количество удвоенных нечётных чисел среди компонентов файла: ',res);
end.

@WresDAG. 8 / 0 / 0 Регистрация: 15.12.2010 Сообщений: 36
		1
	Найти количество удвоенных нечётных чисел среди компонентов файла 26.03.2011, 11:05. Показов 1474. Ответов 1 Метки нет (Все метки) Заполнить файл f целыми числами,полученые с помощью генератора случайных чисел.Найти количество удвоенных нечётных чисел среди компонентов файла. 0

Опции темы

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

Решение