Question

tính tổng các số tự nhiên từ 100 đến 1000 (vòng lặp với số lặp chưa biết)

Answer 1

program to_lam_ko_biet_dung_hay_sai;

uses crt;

var i,s:integer;

begin

clrscr;

i:=100;s:=0

while i <= 1000 do

begin

s:=s+i;

i:=i+1;

end;

write('tong gia tri la',' ',s);

readln;

end.

Answer 2

Chào bạn đề bài này bị lỗi ngôn ngữ lập trình pascal không thể chạy

Answer 3

với bạn khánh làm sẽ có lỗi