Cho biết kết quả sau khi thực hiện lệnh:
Begin
a := 100; b := 15; x := a div b ; Write(x);
End.
A. 10
B. 33
C. 3
D. 6
Cho biết kết quả sau khi thực hiện lệnh:
Begin
a := 100; b := 30; x := a mod b ; Write(x);
End.
A. 10
B. 33
C. 3
D. 1
Cho biết kết quả sau khi thực hiện lệnh:
Begin
a := 100; b := 15; x := a mod b ; Write(x);
End.
A. 10
B. 33
C. 3
D. 6
Câu 1 : cho chương trình sau a=10 b=7 b= a+b a=b-a Write ('a=',a,'b=',b) Sau khi thực hiện chương trình trên giá trị của a và b bằng bao nhiêu? giúp e với ạ em cần gấp ạ
Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.
Cho biết kết quả sau khi thực hiện đoạn chương trình sau:
D:=0;
FOR i:=1 to 5 DO
IF a[i] mod 2 = 1 THEN D:=D+1;
writeln(‘D = ’,D);
A. D = 2
B. 2
C. 3
D. D = 3
Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.
Cho biết kết quả sau khi thực hiện đoạn chương trình sau:
D:=0;
FOR i:=1 to 5 DO
IF a[i] mod 2 = 0 THEN D:= D + 1;
writeln(‘D = ’,D);
A. D = 2
B. 2
C. 3
D. D = 3
Thực hiện đoạn chương trình sau, ta thu được kết quả của a là:
a:= 1;
While a<3 do a:=a*3;
Write(a);
A. 3
B. 8
C. 4
D. 6
Bài 2: Cho mảng A gồm N phần tử kiểu số nguyên (N <= 200). Viết chương trình nhập dữ liệu vào từ bàn phím cho mảng A. Sau đó thực hiện đếm số phần tử chia hết cho 3 của mảng A. Rồi hiển thị kết quả ra màn hình.
Bài 3: Viết chương trình nhập vào từ bàn phím một dãy số gồm N số nguyên (N<=30). Sau đó tính tích các phần tử chia hết cho 2 của dãy số đó. Rồi hiển thị kết quả ra màn hình.
Bài 4: Cho tệp văn bản ‘vidu.inp’ chứa giá trị của a và b. Biết rằng các giá trị này được phân cách nhau bởi một dấu cách. Viết chương trình thực hiện đọc dữ liệu từ tệp ‘vidu.inp’. Sau đó tính giá trị biểu thức S= a+2b. Rồi ghi giá trị của S ra tệp ‘vidu.out’
Bài 5: Viết chương trình thực hiện tính tổng sau:
S= 1+ 1/22+1/32+1/42+…+1/N2
Thực hiện đoạn chương trình sau, ta thu được kết quả của a là:
a := 2;
While a<5 do a := a*3;
Write(a);
A. 8
B. 4
C. 6
D. 3