Дано число. определить сумму цифр в этом числе.

Var
s,n: integer;
begin
readln(n);
s:=0;
while n>0 do
begin
s:=s+(n mod 10);
n:=n div 10;
end;
writeln(s);
end.

1)Язык Python был задуман как потомок языка программирования к обработке исключений и взаимодействию с операционной системой Амёба.

2) Чтобы запустить «Пайтон» в интерактивном режиме, надо набрать в командной строке (cmd) имя интерпретатора — python (иногда это python3) либо запустить интегрированную среду разработки IDLE. Чтобы выполнить запуск в пакетном режиме, надо ввести в командной строке имя интерпретатора, плюс имя файла

3)комплекс программных средств, используемый программистами для разработки программного обеспечения

4)Среда программирования – это набор инструментов, которые используются для преобразования символов в выполнимые вычисления.

5)С IDLE можно выполнять обычные для интегрированной среды задачи: просматривать, редактировать, запускать, отлаживать программы на Python. Редактор кода использует подсветку синтаксиса. IDLE же предлагает дополнительные возможности для опытных пользователей, например, средство просмотра объектов

6)В среде python

7)SyntaxError,NameError, ValueError ,TypeError ,ZeroDivisionError

8) Руками

9)синтаксическая ошибка относится к ошибке в синтаксисе последовательности символов или токенов

10)В качестве «прикрепленного значения» выступает сообщение об ошибке, включающее собственно имя, которое не удалось обнаружить.

Procedure ShellStr(var s: string);
{ сортирует символы строки методом Шелла }
var
  i, j, n, step: integer;
  c: char;
begin
  s := Trim(s);
  n := Length(s);
  step := n div 2;
  while step > 0 do 
  begin
    for j := n - step downto 1 do 
    begin
      i := j;
      while i <= n - step do 
      begin
        if s[i] > s[i + step] then
        begin
          c := s[i];
          s[i] := s[i + 1];
          s[i + 1] := c
        end;
        i := i + step
      end
    end;
    step := step div 2
  end
end;

procedure TrimNullsLeft(var s: string);
{ Усекает левые (незначащие нули) в строке s }
var
  i, n: integer;
begin
  i := 1; n := Length(s);
  while (s[i] = '0') do i := i + 1;
  s := Copy(s, i, n - i + 1)
end;

var
  p: integer;
  s, M, N: string;
  f: text;

begin
  Assign(f, 'input.txt');
  Reset(f);
  Readln(f, s);
  Close(f);
  Assign(f, 'output.txt');
  Rewrite(f);
  s := Trim(s);
  p := Pos(' ', s);
  M := Copy(s, 1, p - 1);
  N := Copy(s, p + 1, Length(s) - p);
  s := M + N;
  ShellStr(s);
  TrimNullsLeft(s);
  Writeln(f, s);
  Close(f);
  Writeln('Программа завершила работу')
end.