Найти среди компонентов файла количество чисел, которые делятся на 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.

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

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