Предмет: Информатика,
автор: BlackMumi
Помогите сделать задачу в Pascal / В файле даны строки с цифрами и буквами, подсчитать сумму всех строк в которых есть числа и нет букв.
Пример файла:
12312
12312
йцу12
кйц
12312
(Посчитать сумму чисел из строк в которых нет букв)
Ответы
Автор ответа:
0
Путь к файлу не забудь поменять
var
t: text;
st: string;
s, i: integer;
c: char;
begin
s := 0;
st := '';
assign(t, 'ПУТЬ К ФАЙЛУ');
reset(t);
while not eof(t) do
begin
read(t, c);
if (ord(c) <> 13) then
st := st + c
else if TryStrToInt(st, i) then
begin
s := s + i;
st := '';
end
else
st := '';
end;
if TryStrToInt(st, i) then
s := s + i;
close(t);
writeln(s);
end.
var
t: text;
st: string;
s, i: integer;
c: char;
begin
s := 0;
st := '';
assign(t, 'ПУТЬ К ФАЙЛУ');
reset(t);
while not eof(t) do
begin
read(t, c);
if (ord(c) <> 13) then
st := st + c
else if TryStrToInt(st, i) then
begin
s := s + i;
st := '';
end
else
st := '';
end;
if TryStrToInt(st, i) then
s := s + i;
close(t);
writeln(s);
end.
Похожие вопросы
Предмет: Українська мова,
автор: hua200218
Предмет: Физика,
автор: deadline2006
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Геометрия,
автор: AlinaKozakova
Предмет: Математика,
автор: девочка132