Các câu hỏi tương tự
Uses crt; Var i,t: integer; Begin Clrscr; t:=0; i:=0; t:=t+i; i:=i+1; Begin Readln; Write('tong các so chan nho hon 50 la',t); End; End. A)if mod 2=0 then B)while i
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');
Nếu a lớn hơn 0 thì thông báo ra màn hình a là số dương. Em hãy xác định điều kiện phía dưới để hoàn thành câu lệnh sau:
if……… then writeln( a,’ la so duong’) ;
A. a>=0 B. a<0 C. A>0 D. A>=0
Có một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
Program Soam Soduong;
uses crt
var A, B: integer;
Begin
clrscr;
writeln(Nhap so A: );
readln(A);
if A > 0 then writeln(A,’ la so duong ‘);
else writeln(A,‘ la so am ’);
readln;
End.
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ẻ
Trong các câu lệnh Pascal sau đây, câu nào hợp lệ:
if x = a then x = x + 1;
if x := a then x := x + 1;
if a < b then max := b else max := a;
if a > b then max := a; else max := b;
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
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: yCâ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 10Câ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 tiếp
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 6: Cho biết kết quả in ra màn hình của đoạn chương trình sauCâu a) i : -1; j: 20;For k: 1 to 5 do If k mod 2 0 then i: i + 1;j : j + i;Writeln(i,‘ ’,j);Câu b)n : 127;m : 0;While n 0 doBegin m : m * 10 + n mod 10; n : n div 10;end;writeln(m);
Đọc tiếp
Câu 6: Cho biết kết quả in ra màn hình của đoạn chương trình sau
Câu a)
i := -1;
j:= 20;
For k:= 1 to 5 do
If k mod 2 = 0 then i:= i + 1;
j := j + i;
Writeln(i,‘ ’,j);
Câu b)
n := 127;
m := 0;
While n < >0 do
Begin
m := m * 10 + n mod 10;
n := n div 10;
end;
writeln(m);