Program SozdText; {Создание текстового файла}
Var
Tx : Text; {Имя текстового файла}
FilName : String; {Имя набора данных}
Stroka : String; {Строка текста}
i,n : Integer; {Вспомогательные переменные}
Begin
Writeln(’Введите имя набора данных’);
Readln (FilName); {Ввести Имя Набора Данных}
Assign(Tx,FilName); {Связать Файл с Набором Данных}
Rewrite (Tx); {Открыть Файл для записи}
Writeln (’Введите количество строк текста’);
Readln(n); {Ввести количество строк}
Writeln (’Введите строки’);
For i:=1 to n do
Begin
Readln (Stroka); {Ввод строки с клавиатуры}
Writeln(Tx,Stroka); {Запись в файл}
End;
Close(Tx); {Закрыть файл}
End.
2008-02-26 • Просмотров [ 26679 ]
var a, s, sa, n: integer;
begin
s:=0;
sa:=0;
n:=0;
repeat
write('Введите целое число»');
readln(a);
n:=n+1;
if (a>0) then s:=s+a;
if (a>0) then sa:=s/n;
until a=0;
writeln ('Введено:');
writeln ('Сумма введенных чисел - »',s);
writeln ('Среднее арифметическое введенных чисел - »',sa);
end.