viết chương trình Pascal tính tích N số tự nhiên đầu tiên sử dụng câu lệnh lặp với số lần chưa biết trước

program  tingtong;

uses  crt;

var  i , n , s : integer;

begin

clrscr ;

Write ( N số tự nhiên đầu là : ) ; readln( n )

s = 0 ; i = 1 

while i<=n  do begin

s:s+1; i=i+1

end

writeln ( tong cac so la s )

readln

end

Chúc bạn học tốt , nếu mình làm sai thì bạn hãy bảo mình chứ đừng báo vi phạm mình nha ! Cảm ơn nhiều?????

program whilefor;

var

s,i,n:integer;

begin

write(' nhap n : ');

readln(n);

s:=0;

for i:= 1 to n do

s:= s +i;

writeln(' tong khi dung vong lap for la : ',s);

s:=0;

i:=0;

while i<=n do

begin

i:=i+1;

s:=s+i;

end;

write(' tong khi dung vong lap while la : ',s);

readln;

end.

bạn thử xem sao nhé :))