Народ помогите с заданием

Question

Дана строка символов, содержащая не более 255 цифр. Необходимо вычислить сумму цифр, стоящих на нечётных позициях (решение в pascal)

Светлана Вершинина · Accepted Answer

вам в раздел науки надо! там профессора сидят))

Олеся Плахута · Answer

Uses crt; 
 
var s:string; 
 i,sum:integer; 
begin 
clrscr; 
readln(s); 
 sum:=0; 
 for i:=1 to length(s) do 
 if odd(i) then 
 sum:=sum+ord(s[ i])-48; 
writeln(sum); 
readln; 
end.

Мария Нургалиева · Answer

заведи массив и в него по одной цифре занеси, потом считай сумму, примени программу 
program sumcifr; 
uses crt; 
var 
n: longint; 
k,s: integer; 
j:integer; 
begin 
clrscr; 
s:=0; j:=0; 
write('ввести число --> ');readln(n); k:=n; 
while n>0 do begin j:=j+1; 
s:=s+n mod 10; writeln( n mod 10); 
n:=n div 10; 
end; 
writeln('число цифр числа = ',j); 
writeln('сумма цифр числа = ',s); 
 if s=k then writeln('совершенное ') else writeln(' no '); 
readln; 
end.