Найти количество удвоенных нечетных чисел среди компонентов файла - 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.
Объяснение кода листинга программы
- Создается переменная
f
типаfile
для работы с файлом. - Задаются переменные
a
,n
,i
иk
для хранения чисел и их обработки. - Открывается файл с именем
'file'
. - Записывается в файл значение переменной
n
. - В цикле от 1 до
n
записываются случайные числа в файл. - Сбрасывается файл.
- Выводится содержимое файла.
- Инициализируется переменная
k
для подсчета удвоенных нечетных чисел. - В цикле, пока не достигнут конец файла, считывается число из файла, выводится его значение и проверяется, является ли оно четным и нечетным одновременно.
- По достижении конца файла выводится количество удвоенных нечетных чисел.