Правильный вариант ответа 3.
В цикле перебираются все элементы массива, кроме последнего, и те которые больше его складываются.
Var a:string;i,s:integer;
begin
read (a);
for i:=1 to length(s) do
begin
s:=s+i;
write (s);
end;
end.
1)
var a, z, s: integer;
begin
write('<em>Введите число: </em>');
read(z);
a := z;
while a > 0 do
begin
s := s + a mod 10;
a := a div 10
end;
write('<em>Сумма цифр числа</em> ', z, ' = ', s)
end.
2)
позиционная 111 = сто одиннадцать
непозиционная III = 3 (римская) - т.е. единичку куда ни поставь - она везде единичка, в позиционных не так
1837056 символа. . . . . . . . . . . .. . . . . .. . . . .. . . . . ..