Найти среди компонентов файла количество чисел, которые делятся на 2 но не делятся на 4. - Pascal
Формулировка задачи:
Надо срочно решить несколько задач, моя вечная благодарность решившему прилагается:
1)Составить программу для вычисления степеней чисел а^n, если a>MaxInt, n>10.
2)Заполнить файл f целыми числами, полученных с помощью генератора случайных чисел. Найти среди компонентов файла количество чисел, которые делятся на 2 но не делятся на 4.
3)Создать файл с текстом на английском языке. Выбрать из него те символы, которые встречаются только один раз, в том порядке в котором они встречаются в тексте.
Решение задачи: «Найти среди компонентов файла количество чисел, которые делятся на 2 но не делятся на 4.»
textual
Листинг программы
var a,b: text; s,d,e: string; i,j,u,y: byte; p: boolean; begin write('Vvedite direktoriyu: '); readln(e); assign(a,e); assign(b,e); {$I-} reset(a); reset(b); if IOresult <> 0 then begin write('Takogo fayla ne sushestvuet, no my ego sozdadim!'); readln; rewrite(a); rewrite(b); reset(a); reset(b); end; {$I+} while not eof(a) do begin while not eoln(a) do read(a,s); inc(u); for i := 1 to length(s) do begin p := false; y := 0; reset(b); while not eof(b) do begin while not eoln(b) do read(b,d); inc(y); for j := 1 to length(d) do if (s[i] = d[j]) then begin if (y <> u) or ((y = u) and (j <> i)) then begin p := true; break end; end; readln(b); if p then break; end; if not p then writeln(s[i]); end; readln(a); end; write('Rabota okonchena! Nazmite <Enter>.'); readln end.