Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Question!


Name: AMAN SHARMA
Title:
  PROGRAM
Question:
HELLO M.SC MATH 
Answers:

Name: kjhn
program slozgenie;
var a:array [1..1000000]of integer;
s,s1:string;
i,b,r,sum,k,n:integer;
begin
readln(s);
i:=0;
sum:=0;
for b:=1 to length(s) do
begin
n:=pos(' ',s);
s1:=copy (s,1,n);
delete (s,1,n);
i:=i 1;
val(s1,a[i],r);
end ;
i:=i 1;
val(s,a[i],r);
for k:=1 to i do
sum:=sum a[k];
writeln(sum);
end.