Дана строка. Найти сумму записанных в строке чисел.

  • var
    s: string;
    sum: integer;
    num,p: integer;
    numstr: string;
    begin
    writeln ('Введите строку чисел через пробел');
    read(s);
    sum := 0;
    while s.Length>0 do
    begin
    while s[1]=' ' do
    Delete(s,1,1);
    p := Pos(' ',s);
    if p=0 then
    p := s.Length;
    numstr := Copy(s,1,p);
    Delete(s,1,p);
    num := StrToInt(numstr);
    sum += num;
    end;
    writeln('Сумма чисел строки равна ',sum);
    end.
  • var a:string;i,s:integer;
    begin
    read (a);
    for i:=1 to length(s) do
    begin
    s:=s+i;
    write (s);
    end;
    end.



See also: