a. Var i : integer;

S : real;

Begin S:= 0;

For i:=1 to 100 do S:= S + i;

Write (S);

Readln;

End.

Bài của bạn Hồ Đức Việt đúng nhưng đề bài không cho rõ là đến số bao nhiêu nên phải nhập số đó vào ctr chứ không phải cho chạy luôn. Còn đề cho mình hỏi 2 vòng lặp không cần có được không chứ mình chưa rõ dùng 2 vòng lặp kiểu gì? nếu dùng 2 vòng thì bạn muốn in ra kết qua nhiều lần hay thế nào? :)

program day_so;

uses crt;

var s,i,n:integer;

begin

writeln('nhap so cuoi cua day');readln(n)

for i:=1 to n do s:=s+i;

writeln('Ket qua day so la', s:0:0); readln

end.

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

i:=0;

while i<=50 do 

begin

i:=i+2;

t:=t+i;

end;

writeln(t);

readln;

end.

Tính tổng N số tự nhiên đầu tiên với N nhập từ bàn phím chứ bạn nhỉ?

.

.

...?

Program Tinh_tong ; 

Uses Crt;

Var i ,S: integer ; 

Begin

S: = 0 i;=0 ;

While  < 51 do begin 

                                       i : = i + 1 ;  

                                       S: = S + i ;

                                   end ;

 Write ('Tong la',S);

End. 

Tham khảo theo link nhé bạn: https://hoc24.vn/hoi-dap/tim-kiem?id=603125&q=t%C3%ADnh%20t%E1%BB%95ng%20c%C3%A1c%20s%E1%BB%91%20t%E1%BB%B1%20nhi%C3%AAn%20t%E1%BB%AB%20100%20%C4%91%E1%BA%BFn%201000%20%28v%C3%B2ng%20l%E1%BA%B7p%20v%E1%BB%9Bi%20s%E1%BB%91%20l%E1%BA%B7p%20ch%C6%B0a%20bi%E1%BA%BFt%29

Program HOC24;

var i,n,t: integer;

begin

t:=0; i:=1;

while t<=500 do

begin

t:=t+i;

i:=i+1;

end;

write('Ket qua la: ',t);

readln

end.

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

for i:=2 to n do 

 if i mod 2=1 then write(i:4);

writeln;

t:=0;

for i:=1 to n do 

 if i mod 2=0 then t:=t+i;

writeln(t);

readln;

end.