lập trình tính các tổng s sau với n nhập vào từ bàn phím s =1+2+3+…+n
Giúp vs ạ
lập trình tính các tổng s sau với n nhập vào từ bàn phím s =1+2+3+…+n Giúp vs ạ
By Remi
By Remi
lập trình tính các tổng s sau với n nhập vào từ bàn phím s =1+2+3+…+n
Giúp vs ạ
Chương trình:
Program tinh_tong;
Uses crt;
Var S,i,n : integer;
Begin
S:=0;
Writeln (‘Nhap n=’);
Readln (n);
For i:=1 to n do
S:= S+i;
Writeln (‘Tong S la:’,S);
Readln
End.
Thuật toán: (trong ảnh).
program ct;
uses crt;
var s,i,n:integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln(‘tong la:’,s);
readln
end.