Question

[Bangtan Bàngtán Bất Bìnhtĩnh]

viết chương trình pascal tính tổng các số từ 1 đến n, n nhập từ bàn phím, sử dụng biến mảng

Answer 1

[『ღƤℓαէїŋʉɱ ₣їɾεツ』]

Uses crt;

Var

S,i,n:Integer;

a:array[1..100] of integer;

BEGIN

Write( ‘ Nhap so n:’ );

 Readln( n );

For i:=1 to n do

begin

 a[i]:=i;

 s:=s+a[i]

end;

Writeln( ‘Tong = ’, S);

Readln;

END.