Question

Viết chương trình tính tổng các số từ 1 đến 50

Answer 1

Program baitap;
Uses crt;
Var S,i : integer;
BEGIN
clrscr;
S:= 0;
For i:=1 to 50 do
S:= S+i;
Writeln (' Vay tong cua cac so tu 1 den 50 la ', S);
Readln
END.