Написать программу на языке программирования для задания: дан текстовый файл, содержащий текст с цифрами. Сколько цифр в тексте и какова их сумма? Файл необходимо создать после запуска программы. Данные в файл записываются из поля TEdit.
Пример решения –
var
Form1: TForm1;
f:TextFile;
s:string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
AssignFile(f,'text.txt');
Rewrite(f);
s:=Edit1.Text;
write(f,s);
CloseFile(f);
end;
procedure TForm1.Button2Click(Sender: TObject);
var n,i,sum:integer;
begin
AssignFile(f,'text.txt');
Reset(f);
read(f,s);
n:=0;
sum:=0;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then
begin
sum:=sum+StrToInt(s[i]);
n:=n+1;
end;
Label2.Caption:=Количество цифр: '+IntToStr(n);
Label3.Caption:='Сумма цифр: '+IntToStr(sum);
CloseFile(f);
end;
end.
