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
2 câu trả lời
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é :))