Question

Viết chương trình nhập từ vào một số n bất kì từ bàn phím sau đó tính tổng từ 1 đến n

Help me ! Mik đg cần gấp . Thanks

Answer 1

Program TinhTong;

Uses crt;

Var S,i,n:Integer; // Khai bao bien su dung

BEGIN

Write( ‘ Nhap so n:’ ); // Thong bao nhap lieu

Readln( n ); // Nhap gtri N, (voi &N la lay d/c bien N)

S: = 0; // Khoi gan gia tri ban dau cho S

For i:=1 to n do // Lap voi moi i co gia tri tu 1 den N

S:=S + i; // Tinh tong cong don i vao S

Writeln( ‘Tong = ’, S); // Xuat ket qua tong S ra man hinh

Readln;

END.