Câu hỏi: Em hãy tìm và sửa lỗi chương trình sau:
Program So sanh;
Uses crt;
Var m, n= integer;
Begin
if m > n then writeln(m lon hon n);
else if m < n writeln(m nho hon n);
else writeln('m bang n');
readln
End.
P/S: Bạn nào biết thì trả lời giúp mình với, đang cần gắp lắm ạ!
Program So sanh;
Uses crt;
Var m, n= integer;
Begin
Clrscr;
Writeln('Hay nhap so m va n');
if m > n then writeln(m lon hon n);
if m < n then writeln(m nho hon n);
else writeln('m bang n');
readln
End.
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 So_Sanh
uses crt;
var A B: integer;
begin
clrscr;
writeln(‘Nhap so A: ’) readln(A);
writeln(‘Nhap so B, khac so A: ‘); readln(B);
if A :> B then writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);
readln;
end.
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 So_Sanh;
uses crt
var A: B= integer;
Begin
clrscr;
writeln(‘Nhap so A: ’);
readln(B);
writeln(‘Nhap so B, khac so A: ‘);
readln(B);
if A > B then; writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);
readln;
End.
Cho đoạn chương trình sau:
If a>b then a :=b ;
If a>c then a :=c ;
Writeln(a) ;
Hỏi nếu a := 7 ; b := 6 ; c := 8 ; khi kết thúc chương trình sẽ in ra màn hình nội dung gì ?
(1 Điểm)
Không có thông tin nào hiển thị trên màn hình
8
6
7
Cho đoạn chương trình sau:
s1 := ‘1234’; s2 := ‘abc’;
if length(s1) < length(s2) then writeln(s1) else writeln(s2);
Kết quả in ra màn hình là:
A. ‘1234’
B. ‘abc’
C. ‘1234abc’
D. ‘abc1234’
Cho đoạn chương trình sau:
s1 := ‘1234’; s2 := ‘abc’;
if length(s1) > length(s2) then writeln(s1) else writeln(s2);
Kết quả in ra màn hình là:
A. ‘1234’
B. ‘abc’
C. ‘1234abc’
D. ‘abc1234’
Cho đoạn chương trình sau:
s1 := ‘abc’; s2 := ‘1234’;
if length(s1) > length(s2) then writeln(s1) else writeln(s2);
Kết quả in ra màn hình là:
A. ‘1234’
B. ‘abc’
C. ‘1234abc’
D. ‘abc1234’
Cho đoạn chương trình sau:
s1 := ‘abc’; s2 := ‘1234’;
if length(s1) < length(s2) then writeln(s1) else writeln(s2);
Kết quả in ra màn hình là:
A. ‘1234’
B. ‘abc’
C. ‘1234abc’
D. ‘abc1234’
Cho biết kết quả sau khi thực hiện đoạn chương trình sau:
S:=0;
FOR i:=1 to 15 DO
IF a[i] mod 2 = 0 THEN
S:=S+a[i];
writeln(‘S = ’,S);
