Если вы уже прошли строки, то вот program summa; var s: string; I, sum: integer; begin sum := 0; Readln (s); for i := 1 to (length(s) div 2) do sum := sum (ord(s[i]) - 48); Writeln (sum); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
