Найти количество удвоенных нечетных чисел среди компонентов файла - Pascal (7962)

Узнай цену своей работы

Формулировка задачи:

Заполнить файл F целыми числами,полученными с помощью генератора случайных чисел. Найти количество удвоенных нечетных чисел среди компонентов файла.
кто-нибудь!!!! неужели ни у кого нет идейки по написанию программки???

Решение задачи: «Найти количество удвоенных нечетных чисел среди компонентов файла»

textual
Листинг программы
var f:file of integer;
     a,n,i,k:integer;
begin
assign(f,'file');
rewrite(f);
randomize;
write('n=');
readln(n);
for i:=1 to n do
 begin
  a:=random(100)+1;
  write(f,a);
 end;
reset(f);
writeln('Содержание файла:');
k:=0;
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
  if(a mod 2=0)and(a mod 4<>0) then k:=k+1;
 end;
close(f);
writeln;
write('Количество двойных нечетных=',k);
readln
end.

Объяснение кода листинга программы

  1. Создается переменная f типа file для работы с файлом.
  2. Задаются переменные a, n, i и k для хранения чисел и их обработки.
  3. Открывается файл с именем 'file'.
  4. Записывается в файл значение переменной n.
  5. В цикле от 1 до n записываются случайные числа в файл.
  6. Сбрасывается файл.
  7. Выводится содержимое файла.
  8. Инициализируется переменная k для подсчета удвоенных нечетных чисел.
  9. В цикле, пока не достигнут конец файла, считывается число из файла, выводится его значение и проверяется, является ли оно четным и нечетным одновременно.
  10. По достижении конца файла выводится количество удвоенных нечетных чисел.

Оцени полезность:

11   голосов , оценка 4.091 из 5
Похожие ответы