составить программу для выделения из заданного текста целых положительных чисел и вычисления их среднего значения

@CepeJka · Регистрация: 13.10.2012

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

Help!

@HanDi · 15.10.2012, 16:43

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const
Fn1='file1.txt';
Fn2='file2.txt';
var
f1,f2:TextFile;
  nmb:Integer;
begin
  AssignFile(f1,Fn1);
  Reset(f1);
  AssignFile(f2,Fn2);
  Rewrite(f2);
  while not eof(f1) do
    begin
      Read(f1,nmb);
      if not Odd(nmb) then
        Write(f2,nmb);
    end;
  CloseFile(f1);
  CloseFile(f2);
end;

Ну а со средним значением думаю сам разберешься(сложить все и поделить на их количество).

@CepeJka · 15.10.2012, 16:45 **[ТС]**

Спасибо большое!

@CepeJka 0 / 0 / 0 Регистрация: 13.10.2012 Сообщений: 25
		1
	составить программу для выделения из заданного текста целых положительных чисел и вычисления их среднего значения 15.10.2012, 16:38. Показов 1771. Ответов 2 Метки нет (Все метки) Help! 0

@CepeJka 0 / 0 / 0 Регистрация: 13.10.2012 Сообщений: 25
	15.10.2012, 16:45 [ТС]	3
	Спасибо большое! 0

Опции темы

составить программу для выделения из заданного текста целых положительных чисел и вычисления их среднего значения

Решение