[r]
(1)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
(2)