Câu 20: Điền một trong các điều kiện : (a mod b=0) (adivb = 0) , (a div b =0), (a > b) (a^ < b),(a=b) vào câu lệnh sau cho đúng?
A. If......... then write( 'a chia het cho b^ prime ) else write(^ / không chia hết cho b);
B. If......... then write( a lon hon b');
Cho giá trị biến a=5. Hãy cho biết kết quả câu lệnh sau đây:IF a<=10 THEN write(a*a) ELSE (a); *
Cho biết kết quả sau khi thực hiện câu lệnh: x:=3; y:=7; if (x+y) mod 2=0 then write(‘tong chan’) else write(‘tong le’);
A. Thông báo lỗi
B. Tong chan
C. Tong le
D. Tùy trường hợp sẽ thông báo tổng chẵn hay tổng lẻ
Cho giá trị biến a=5. Hãy cho biết kết quả câu lệnh sau đây:IF a<=10 THEN write(a*a) ELSE (a); giúp mình với
Cho biết kết quả x của câu lệnh sau: x:=52; If x mod 5=0 then x:=x+1 else x:=x div 5 A) x=55 B) x=10 C) x=0 D) x=11
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
Câu 1.
a/ x:=7;
if (75 mod 5) = 0 then x := x + 1;
-> Điều kiện đúng -> x=7+1= 8
if x > 10 then x := x + 1 else x := x - 1;
x> 7 <=> 7 > 10 -> Điều kiện sai -> rẽ nhánh -> x=7-1 = 6
b/
Câu lệnh đó không hợp lệ. Vì để sai cấu trúc rẻ nhánh (thùa dấu ; ) sau max:=x
Câu 2
Program HOC24;
var t,i: byte;
begin
t:=0;
for i:=1 to 10 do t:=t+i;
write('Tong la: ',t);
readln
end.
Câu 3
Program HOC24;
var i,t: byte;
begin
i:=1; t:=0;
while i<=10 do
begin
t:=t+i;
i:=i+1;
end;
write('Tong la: ',t);
readln
end.
Cho biết câu lệnh sau có kết quả như thế nào? a:=b; b:=a; If a>b then write(a) else if a
Cho biết kết quả câu lệnh sau: For i:=1 to 10 do if i mod 2=0 then write(i:4); *
a.1 2 3 4 5 6 7 8 9 10
b.2 4 6 8 10
c.1 3 5 7 9
d.4 8
1) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if b < a then b:= b – a ;
2) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if (a + b) > 5 then begin a:= a + 1 ; b:= b + 2 ; end else a:= b ;
3) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if a > 5 then begin a:= a + 5 ; b:= b + 3 ; end else begin a:= a + 1 ; b:= b + 1 ; end ;
4) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if b < 5 then begin a:= a + 5; b:= b + 2 ; end ;
5) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if a <> b then b:= a + b ;
6) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if a mod 2 = 0 then b:= 7) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if a mod 2 = 1 then b:= 5 ;
