vòng lặp for

program dfds;

uses crt;

var i,n,m:integer;

begin

clrscr;

write('n=');

readln(n);

for i:=1 to n do m=m+i;

write('gia tri cua day so M la ',' ',m);

readln;

end.

var n,i,s:integer;

begin

write('n=');readln(n);

s:=0;

for i:=1 to n do s:=s+i;

write(s);

readln;

end.

Câu 1: 

1:A

2:C

Câu 1:

3:D

4:C

có acc sever dân chơi

thang ngu nao ms cho m

Có nè mà bạn lp mấy

mn nè

=]] tớ nà~

nam được khum nà :>>

Bạn gỡ Pascal ra khỏi máy tính sau đó tại lại bằng link này thử nhé: Free Pascal 3.0.4 - Phần mềm học lập trình Pascal miễn phí - Download.com.vn

tui lộn bán nick này nhé

Bước 1: nhập n

Bước 2: t:=0; i:=0;

Bước 3: nếu i mod 2=0 thì t:=t+i;

Bước 4: i:=i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Xuất t

Bước 7: Kết thúc

trog sách có nha bn

Bước 1: nhập n

Bước 2: t:=0; i:=0;

Bước 3: nếu i mod 2=0 thì t:=t+i;

Bước 4: i:=i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Xuất t

Bước 7: Kết thúc

dịch:alt+f9;

chạy:ctrl+f9;

Trường hợp 1:Có thể là do laptop của bạn đã bị hỏng một số phím

Trường hợp 2: Laptop thì có các phím như Tăng, giảm âm lượng nên nó được đặt cùng vị trí với các phím F1( hay F2, hay F3,...)

Cách sửa trường hợp 2: Ấn phím Fn với một phím F... gì đấy

VD: dịch chương trình : Alt + Fn + F9

Chạy chương trình: Ctrl + Fn + F9

Thêm: phím Fn thường ở cạnh phím Alt hoặc phím Windows (nút hình cái cửa sổ)