Câu 1: Sau khi thực hiện chưng trình pascal sau đây, biến S có giá trị là bao nhiêu ?    Var x : integer;

Begin

S:=0

For i:=1 to 10 do 
If ( i mod 2) = 0 then S:=S+i;

Readln;

End

A.10 B. 20 C. 30 D. 40

Câu 2: Khi thực hiện đoạn chương trình sau, kết quả trên màn hình là:
So:=1;

While so<10 do Begin 

Write (so : %);

So:= So +2;

End.

Câu 1:

a)  Với mỗi câu lệnh sau đây giá trị của biến x sẽ là bao nhiêu, nếu trước đó giá trị của x bằng 7?

if (75 mod 5) = 0 then x := x + 1;

if x > 10 then x := x + 1 else x := x - 1;

b) Câu lệnh Pascal sau đây có hợp lệ không? Giải thích.

If x > y then max: = x; else max: = y

Câu 2:

Viết chương trình sử dụng lệnh lặp FOR để tính tổng các số tự nhiên từ 1 đến 10

Câu 3:

Viết chương trình sử dụng lệnh lặp While – Do  để tính tổng các số tự nhiên từ 1 đến 10

Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1Bài 1 Hãy cho biết giá trị của x bằng bao nhiêu sau khi thực hiện xong câu lệnh

a)    X=0, for i:=1 to 5 do X:=x+1;

b)    X:=0; i:=1,while i(=5 do begin X:X*1), i:=1+1 end

c)    X:=5,if (45 mod 3)=0 then X:=x+2

d)    X:=7;If x>10 then X:=x=1 else X:=X-2

e)    N:10,X:=100,while n.10 do n:=n+5, x:=x-n

f)     X=0,for i=1 to 3 do x:=x+2*1