Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  bt1
Language: PASCAL
Code:
program bt1;
uses crt;
var i,S:real;
begin
for i:1 to 100 do if i mod 2=0 then
begin
write(i, '');
S:=S+i;
writeln('Tong S:');
end;
readln;
end.     
Comments: