chươn trình tính tổng N số tự nhiên đàu tiên với N nhập từ bàn phím 17/07/2021 Bởi Alice chươn trình tính tổng N số tự nhiên đàu tiên với N nhập từ bàn phím
program tong_dau_tien; uses crt; var n,i,t:integer; begin clrscr; write(‘Nhap N: ‘); readln(n); t:=0; for i:=1 to n do t:=t+i; write(‘Tong ‘,n,’ so tu nhien dau tien la :’,t); readln; end. Bình luận
#$hunghunghung$ var i,n: integer; s:longint; begin write(‘nhap so n=’);readln(n); s:=0; i:=1; while i<=n do begin Bình luận
program tong_dau_tien;
uses crt;
var n,i,t:integer;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
write(‘Tong ‘,n,’ so tu nhien dau tien la :’,t);
readln;
end.
#$hunghunghung$
var i,n: integer;
s:longint;
begin
write(‘nhap so n=’);readln(n);
s:=0;
i:=1;
while i<=n do
begin