1) hãy cho biết chương trình sau thực hiện công việc gì?
i:=0; T:=0;
while i<1000 do
begin
T:= T+i;
i:= i+2;
end;
2) cho đoạn chương trình sau. có ý nghĩa gì?
so:= 1;
while so <10 do writeln( so );
so:= so +1;
3) từ lệnh for i :=1 to100 do write( i :4 ) hãy chuyển sang lệnh while...do
4) dùng lệnh while tính N!
5) viết chương trình tính số tiền nhận được là 108000 đ nếu số tiền gởi là những 100000 đ với lãi suất 2% 1 tháng

1/ tinh tong cac so chan tu 1 den 999

còn mấy bài khác đâu ạ!

3. i := 1;
While i <= 100 Do
Begin
Write(i: 4);
I := i + 1;
End;

1/ ý nghĩa của câu 1 là: tính tông các số chẵn bằng vòng lặp while ... do  :  :  :

tính tông các số chẵn từ 1 đến 999
program tinhtong;
var s,n,i:integer;
begin
writeln(' nhap vao n: ');readln(n);
s:=0;
for i:=1 to n do
if( i mod 2 =0 ) then
s:=s+i;
writeln(' vay tong so chan là: ',s);
readln
end.

$
4^4
$


dsadsad dasdsadas dasdasdas dasdsad dsadsa