Найти и вывести произведение нечетных чисел файла и их количество

@СветланаПрилука · Регистрация: 09.11.2012

Author24 — интернет-сервис помощи студентам

Помогите создать программу, формирующую файл nums.dat из целых чисел, вводимых с клавиатуры. Количество чисел заранее неизвестно. Признаком окончания ввода является 0. Вывести содержимое файла на экран в строку. Найти и вывести произведение нечетных чисел файла и их количество. Заранее благодарю за помощь.

@CodeR · 17.11.2012, 13:22

Pascal

Var f:file of integer;
    i,pr,k,m:integer;
Begin
    Assign(f,'nums.dat');Rewrite(f);
    Repeat
     write('Введите число(окончание ввода "0"): ');
     readln(m);
     if m<>0 then write(f,m);
    Until m=0;
    Reset(f);
    k:=0;pr:=1;
    While not Eof(f) do
    Begin
      read(f,m);
      write(m,' ');
      if odd(m) then
      Begin
        inc(k);
        pr:=pr*m;
      End;
    End;
    writeln;
    writeln('Произведение нечетных: ',pr);
    writeln('Кол-во нечетных: ',k);
    Close(f);
    readln;
End.

@СветланаПрилука 0 / 0 / 0 Регистрация: 09.11.2012 Сообщений: 8
		1
	Найти и вывести произведение нечетных чисел файла и их количество 16.11.2012, 18:24. Показов 1251. Ответов 1 Метки нет (Все метки) Помогите создать программу, формирующую файл nums.dat из целых чисел, вводимых с клавиатуры. Количество чисел заранее неизвестно. Признаком окончания ввода является 0. Вывести содержимое файла на экран в строку. Найти и вывести произведение нечетных чисел файла и их количество. Заранее благодарю за помощь. 0

	17.11.2012, 13:22

Найти и вывести произведение нечетных чисел файла и их количество

Решение