Сделать в pascal / в файле даны строки с цифрами и буквами, подсчитать сумму всех строк в которых есть числа и нет букв. пример файла: 12312 12312 йцу12 кйц 12312 (посчитать сумму чисел из строк в которых нет букв)

166

232

Посмотреть ответы 2

Ответы на вопрос:

кфг

Информатика

4,5(69 оценок)

Путь к файлу не забудь поменять 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.