Viết chương trình tính tổng N số tự nhiên
Làm ơn, help meeeeeeee
Hứa sẽ vote 5 sao, ctlhn

Question

Viết chương trình tính tổng N số tự nhiên Làm ơn, help meeeeeeee Hứa sẽ vote 5 sao, ctlhn

haiyen · Answer

uses crt;

var n,i,a:integer;

s:longint;

begin

clrscr;

s:=0;

readln(n);

for i:=1 to n do

begin

readln(a);

s:=s+a;

end;

write(s);

readln;

end.

ngockhue · Answer

program BT;

uses crt;

var N,i,T: integer;

Begin

clrscr;

write(‘Nhap N: ‘); readln(N);

for i:=1 to N do T:=T+i;

write(‘Tong = ‘,T);

readln

End.

0 bình luận về “Viết chương trình tính tổng N số tự nhiên Làm ơn, help meeeeeeee Hứa sẽ vote 5 sao, ctlhn”