Question

Viết chương trình tính tổng các số tự nhiên từ 1 đến 100.

Answer 1

Program tong;
Uses crt;
Var
x,dem:Integer;
Begin
Clrscr;
dem:=1;x:=0;
While (dem<=100) do
Begin
x:=x+dem;
dem:=dem+1;
End;
Writeln('Tong cua 100 so do la ',x);
Readln;
End.

Answer 2

program bai1;

var s,i:longint;

begin

s:=0;

for i:=1 to n do

s:=s+i;

write('...');

readln

end.

Answer 3

Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
End.