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;
usescrt;
var A, B= integer;
Begin
clrscr;
writeln(‘Nhap so A: ’); readln(A);
writeln(‘Nhap so B: ‘); readln(A);
if A <> B then writeln(A,’ khac ‘,B) else writeln(B,’ = ‘,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.
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.
Hãy tìm lỗi của chương trình và sửa lại cho đúng program Chuong_trinh uses crt; var a,b,c:=integer begin writeln('Nhap vao so a va b') readln(a,b) c:=a+b writeln('Ket qua :',c end
Program so_ sanh uses crt var A:B= integer; Begin clrscr; writeln ('Nhap so A:'); readln (B); if A>B then ; writeln (A,'lon hon,'B) else writeln (B,'lon hon ,'A); readln End
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.
1) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if b < a then b:= b – a ;
2) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if (a + b) > 5 then begin a:= a + 1 ; b:= b + 2 ; end else a:= b ;
3) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if a > 5 then begin a:= a + 5 ; b:= b + 3 ; end else begin a:= a + 1 ; b:= b + 1 ; end ;
4) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if b < 5 then begin a:= a + 5; b:= b + 2 ; end ;
5) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if a <> b then b:= a + b ;
6) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if a mod 2 = 0 then b:= 7) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if a mod 2 = 1 then b:= 5 ;
1) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if b < a then b:= b – a ;
2) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if (a + b) > 5 then begin a:= a + 1 ; b:= b + 2 ; end else a:= b ;
3) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if a > 5 then begin a:= a + 5 ; b:= b + 3 ; end else begin a:= a + 1 ; b:= b + 1 ; end ;
4) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if b < 5 then begin a:= a + 5; b:= b + 2 ; end ;
5) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if a <> b then b:= a + b ;
6) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if a mod 2 = 0 then b:=
7) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if a mod 2 = 1 then b:= 5 ;
Minh can cau tra loi nhanh a!
1) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if b < a then b:= b – a ;
2) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if (a + b) > 5 then begin a:= a + 1 ; b:= b + 2 ; end else a:= b ;
3) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if a > 5 then begin a:= a + 5 ; b:= b + 3 ; end else begin a:= a + 1 ; b:= b + 1 ; end ;
4) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if b < 5 then begin a:= a + 5; b:= b + 2 ; end ;
5) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if a <> b then b:= a + b ;
6) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if a mod 2 = 0 then b:=
7) Cho biết a := 3 ; b:= 6 ; câu lệnh sau cho kết quả b là bao nhiêu? if a mod 2 = 1 then b:= 5 ;
Minh can cau tra loi nhanh a!