Что делает эта программа? Совсем не могу понять сути её

@Roxyashechka · Регистрация: 01.03.2017

Author24 — интернет-сервис помощи студентам

Pascal

var
  i: integer;
  s: string;
  g: boolean;
  x: integer;
 
begin
  readln(s);
  i := 1; g := false; x := 0;
  while (i <= length(s)) and (not g) do
  begin
    g := not (s[i] in ['0'..'9']);
    if not g then x := x * 10 + ord(s[i]) - 48;
    i := i + 1;
  end;
  writeln(x);
end.

@Puporev · 21.03.2019, 17:25

Pascal

var
  i: integer;
  s: string;
  g: boolean;
  x: integer;
 
begin
  readln(s);//читаем строку
  //ищем первое число если оно в начале
  i := 1; g:=false; x := 0; //смотрим с 1 символа
  while (i <= length(s)) and (not g) do//пока не конец и g=false
  begin
    g := not (s[i] in ['0'..'9']);//проверяем символ цифра или нет
    if not g then x := x * 10 + ord(s[i]) - 48; //если цифра умножаем уже имеющееся чило,
                                                //в начале оно=0, и прибавляем код этой цифры-48
    i := i + 1;//идем дальше
  end;
  writeln(x);//выводим число
end.

Попробуйте ввести такие строки
А12 выдаст 0
123Ф выдаст 123
123А456 тоже выдаст 123

	21.03.2019, 17:25