Cho đoạn chương trình sau: i:=1; S:=0 while i
Cho đoạn chương trình sau:
Begin
x:=a;
if a < b then x:=b;
End.
Cho a= 20; b=15. Kết quả x bằng bao nhiêu?
A. 20
B.15
C.18
D.25
(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 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
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.
Begin
i:= 123456;
Writeln(i);
Write(-789);
End.
Kết quả hiện ra màn hình của chương trình trên là:
A. Tất cả 3 đáp án kia đều sai.
B. 123456-789
C. 123456
-789
D. 123456
789
Begin
i:= 123456;
Writeln(i);
Write(-789);
End.
Kết quả hiện ra màn hình của chương trình trên là:
A. Tất cả 3 đáp án kia đều sai.
B. 123456-789
C. 123456
-789
D. 123456
789