Viết chương trình tính S=1+2+3+4.....+n Làm trên pascal nha mấy bạn
2 câu trả lời
Program BTH;
uses crt;
var a,b:longint;
c:qword;
Procedure BTH;
Begin
For a:=1 to b do
c:=c+a;
end;
Begin
clrscr;
write('Nhap so cuoi: ');readln(b);
BTH;
Writeln('Tong day so tren la: ',c);
readln;
End.
Ok chưa bạn :)))))
program qua_la_de;
uses crt;
var S,n,i,: interger;
begin
S:=0;
writeln(' day gom co so phan tu la: '); readln(n);
for i:= 1 to n do
S:=S+i;
writeln('vay tong la: ',S);
readln; end.
