Cho đoạn chương trình sau:
i : = 1; S := 0;
While i < 0 do
Begin
S : = S +2;
i : = i+1;
End;
Đoạn chương trình trên sẽ cho kết quả S là
A. 20
B. 10
C. 14
D.18
( Giải thích nữa ạ)
Cho biết kết quả sau khi thực hiện đoạn chương trình sau : S = " học sinh lop 11 E1 "
K= length ( s1 )
Writeln ( K )
For i: = 1 to k do
S[i]= upcase (s[i])
Writeln(S)
Cho đoạn chương trình sau: Sau khi thực hiện đoạn chương trình này trên màn hình hiện gì?
x :=17;
y :=sqr(x)+sqr(x)/3;
writeln('y=',y:4:0);
A. y=100
B. 100
C. y=100. {có dấu chấm}
y=100.4564
Cho đoạn chương trình sau: Sau khi thực hiện đoạn chương trình này trên màn hình hiện gì?
x :=17;
y :=sqr(x)+sqr(x)/3;
writeln('y=',y:4:0);
A. y=100
B. 100
C. y=100. {có dấu chấm}
y=100.4564
Cho 2 số nguyên k và m. Kết quả sau khi thực hiện đoạn chương trình sau là gì?
k:=2500; m:=50;
writeln (k/m:2:3)
A. 2500/50:2:3
B.. Chương trình báo lỗi (vì 2<3)
C. 50.000
D. 8.333
Cho 2 số nguyên k và m. Kết quả sau khi thực hiện đoạn chương trình sau là gì?
k:=2500; m:=50;
writeln (k/m:2:3)
A. 2500/50:2:3
B.. Chương trình báo lỗi (vì 2<3)
C. 50.000
D. 8.333
Xét đoạn chương trình sau:
a:=100; write('b='); readln(b);
if (a<=b) then write(-1) else write(1);
if (a=b) then write (0);
Nhập giá trị bao nhiêu cho b để đoạn chương trình nhận được kết quả là -10 ?
Câu 1(3đ). Hãy khai báo mảng một chiều lưu trữ 100 phần tử số nguyên có giá trị trong khoảng từ 0 đến 255 bằng cách: a. Trực tiếp; b. Gián tiếp: c. Tham chiếu đến phần tử thứ 50 và gán giá trị bằng 45. Câu 2(4đ). Viết chương trình nhập N và N số nguyên a,, a2,..an. Tính tổng các phần tử chăn chia hết cho 3. Câu 3 (3đ). Cho đoạn chương trình sau: a. Với: N=6; k=8 A= 45 56 73 64 55 98 Program Bai3; Type KM-array[1..100] of LongInt; Var a:KM; i,N, k:Integer; Begin Write('Nhap N= ');Readln (N); Write('Nhap k= '); Readln (k); For i:-1 to n do Begin Write(Nhap a[',I,']= '); Readln(a[i]); If trunc (sqrt (a(i]))=k then Write (i:6); End; Chương trình sẽ đưa ra kết quả gì? b. Với: N=6; k=5 A= 45 56 73 64 55 98 Chương trình sẽ đưa ra kết quả gì? c. Sửa điều kiện lệnh If thành kiểm tra xem a[i] có là số chính phương hay không? (Số chính phương là: x2 = ai. VD 9 = 32; 16 = 42; 81 = 92) Readln; End.
