2020)

[r]

MÔN TIN HỌC LỚP 8 program Tinh_tong; uses crt;

var S, n: integer; begin

clrscr;

writeln ('Tinh tong 200 so dau tien: S = + + + + 200'); S := 0; n := 1;

while n <= 200

begin S := S + n; n := n + 1; end; writeln ('Tong 200 so dau tien la = ',S); readln;

end

MÔN TIN HỌC 8 program Tinh_tong; uses crt;

var S, n: integer; begin

clrscr;

writeln ('Tinh tong 300 so dau tien: S = + + + + 300'); S := 0; n := 1;

while n <= 300