Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  tjhtyh
Language: PASCAL
Code:
program summa;
var
i: integer;
s: integer;
begin
i: = 0;
s: = 0;
while (i <= 15) do
degin
if (i mod 2 = 1) then
i: = i + 1;
s: = s + i;
end;
writeln (s);
end.
Comments: