Ввести с клавиатуры произвольную последовательность целых чисел (кол-во вводимых чисел должно задаваться в ходе диалога с программой) используя для ввода цикл с постусловием repeat-until — Pascal(Паскаль)

Вычислить произведение нечетных чисел и сумму четных результат вывести на экран нечетные числа записать в файл ODD_NUM.DAT и вывести содержимое файла.

program PascalGuru;

var
  i, n, p, code: integer;
  s: string;
  a: array [1 .. 100] of integer;
  pr, summa: integer;
  f: text;

begin

  writeln('Vvedite cisla cerez probel: ');
  readln(s);

  i := 0;
  repeat
    inc(i);
    p := pos(' ', s);
    val(copy(s, 1, p - 1), a[i], code);
    delete(s, 1, p);
  until p = 0;
  val(s, a[i], code);
  n := i;

  pr := 1;
  summa := 0;
  for i := 1 to n do
    if odd(a[i]) then
      pr := pr * a[i]
    else
      summa := summa + a[i];

  writeln;
  writeln('Proizvedenie: ', pr);
  writeln('Summa: ', summa);
  writeln;

  writeln('Necetnye:');
  writeln('__________');
  writeln;
  assign(f, 'ODD_NUM.DAT');
  rewrite(f);
  for i := 1 to n do
    if odd(a[i]) then
    begin
      write(a[i]:5);
      writeln(f, a[i]);
    end;

  readln;
  close(f);

end.

Leave a Comment