ета пограмма просто считает сумму цифр., но мне надо создать файл txt заполнить его цифрами, и чтоб програма открыла етот txt и Подсчитала сумму цифр,

uses crt;

var a,n:integer;
begin
clrscr;
writeln('enter stroky cifr');
readln(a);

while a <> 0 do begin
n:=n + a mod 10;
a:= a div 10;
end;

write('summa cifr = ', n);
readln
end.

1

Ответы и объяснения

2013-01-30T19:19:44+04:00

var a,n:integer;
fl1,fl2:text;
begin
assign(fl1,'input.txt');
n:=0;
reset(fl1);
read(fl1,a);
while a <> 0 do begin
n:=n+a;
read(fl1,a);
end;
close(fl1);
write('summa cifr = ', n);
end.