Question

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

Answer 1

Привет! Конечно, я могу помочь тебе с этой задачей на Pascal. Вот пример программы, которая решает задачу:

program SumNumbersWithoutLetters;

var
  inputFile: TextFile;
  currentLine: string;
  sum: Integer;

function ContainsLetters(s: string): Boolean;
var
  i: Integer;
begin
  for i := 1 to Length(s) do
  begin
    if (s[i] >= 'a') and (s[i] <= 'z') or (s[i] >= 'A') and (s[i] <= 'Z') then
    begin
      ContainsLetters := True;
      Exit;
    end;
  end;
  ContainsLetters := False;
end;

begin
  AssignFile(inputFile, 'example.txt'); // Укажи свое имя файла
  Reset(inputFile);

sum := 0;

while not EOF(inputFile) do
  begin
    ReadLn(inputFile, currentLine);

if not ContainsLetters(currentLine) then
    begin
      // Если в строке нет букв, добавляем числа к сумме
      sum := sum + StrToIntDef(currentLine, 0);
    end;
  end;

CloseFile(inputFile);

// Выводим результат
  WriteLn('Сумма чисел из строк без букв: ', sum);
end.

Не забудь заменить `'example.txt'` на имя своего файла. Программа открывает файл, считывает строки, проверяет наличие букв в каждой строке и при их отсутствии добавляет числа к сумме.