Cho đoạn chương trình sau:
IF <điều kiện> THEN write(x,’la so chan’) ELSE write(x,’la so le’);
Điều kiện là biểu thức logic nào dưới đây?
A. x mod 2 = 0
B. x mod 2 = 1
C. x > 0
D. x < 0
Những câu hỏi liên quan
Cho đoạn chương trình sau:
IF <điều kiện> THEN write(x,’la so le’) ELSE write(x,’la so chan’);
Điều kiện là biểu thức logic nào dưới đây?
A. x mod 2 = 0
B. x mod 2 = 1
C. x > 0
D. x < 0
Cho đoạn chương trình sau:
IF <điều kiện> THEN write(x,’la so duong’) ELSE write(x,’la so am’);
Điều kiện là biểu thức logic nào dưới đây?
A. x mod 2 = 0
B. x > 0
C. x mod 2 = 1
D. x < 0
Cho đoạn chương trình sau:
IF <điều kiện> THEN write(x,’la so am’) ELSE write(x,’la so duong’);
Điều kiện là biểu thức logic nào dưới đây?
A. x mod 2 = 0
B. x mod 2 = 1
C. x > 0
D. x < 0
Câu lệnh nào dưới đây dùng để kiểm tra 1 số là số chẵn hay số lẻ?
A.If So div 2=0 So then write('so le') else write('so chan');
B. If N mod 2<>0 So then write('so le') else write('so chan');
C. If So div 2<>So then write('so le') else write('so chan');
D. If N mod 2=0 So then write('so le') else write ('so chan');
Cho đoạn chương trình, tìm lỗi sai sửa lại cho đúng:
1) program : bai1;
var x,y:= interger;
x=7; n=2.68;
begin
writeln(nhap so x); realn(x);
writeln(nhap so y); realn(y);
if x mod 2 = 0 then y=y x ; else
y:=y n;
write (‘ket qua phep tinh la’ , y);
r...
Xem chi tiết
program bai1;
uses crt;
var x,y,n:integer;
begin
clrscr;
x:=7;
n:=2.68;
write('nhap so x:'); readln(x);
write('nhap so y:');readln(y);
if x mod 2 =0 then y:=y*x
else y:=y*n;
write('ket qua phep tinh la:', y);
readln
end.
Đúng 1
Bình luận (0)
program bai1;
uses crt;
var x,y,n:integer;
begin
clrscr;
x:=7;
n:=2.68;
write('nhap so x:'); readln(x);
write('nhap so y:');readln(y);
if x mod 2 =0 then y:=y*x
else y:=y*n;
write('ket qua phep tinh la:', y);
readln
end.
Đúng 1
Bình luận (0)
“Nếu b chia 2 dư 1 thì in ra màn hình b la so le” được thể hiện câu lệnh trong Pascal như thế nào?
A. If b/2=1 then Write(‘b la so le’);
B. If b mod 2=1 then Writeln(b la so le);
C. If b mod 2=1 then Write(‘b la so le’);
D. If b div 2=1 then Write(‘b la so le’);
Câu lệnh sau có bao nhiêu lỗi sai? Hãy chỉ ra các lỗi sai đó:
if a mod 2 :=0 then writeln(a,' la so chan);
else writln(a, ' la so le')
co 4 loi sai
if a mod 2:=0 là sai ở chỗ :
writeln(a,'la so chan); là sai ở chỗ sau chữ n thiếu dấu '
writln sai ở chỗ thiếu chữ e
(a,'la so le') sai ở chỗ thiếu chấm phẩy sau cùng
Đúng 1
Bình luận (0)
Cho biết kết quả sau khi thực hiện câu lệnh: x:=3; y:=7; if (x+y) mod 2=0 then write(‘tong chan’) else write(‘tong le’);
A. Thông báo lỗi
B. Tong chan
C. Tong le
D. Tùy trường hợp sẽ thông báo tổng chẵn hay tổng lẻ
Em hãy sắp xếp các câu lệnh sau và viết lại thành 1 chương trình hoàn chỉnh . Sau đó cho biết chương trình đó thực hiện công việc gì ? Writeln ( Tong cac phan tu le trong mang la : , tle ) ;
End.
Program Bai _ tap _ day _ so ;
If a [ i ] mod 2 0 then chan : tchan + a [ i ] Readln ;
a:array [ 1 . . 100 ] of Integer ;
Begin
Clrscr ;
write ( Nhap so phan tu cua mang : ) ; Readln ( n ) ;
For i : 1 to n do readln ( a [ i ] ) ;
For i : 1 to n do
Write ( Nhap phan thu thu...
Đọc tiếp
Em hãy sắp xếp các câu lệnh sau và viết lại thành 1 chương trình hoàn chỉnh . Sau đó cho biết chương trình đó thực hiện công việc gì ? Writeln ( ' Tong cac phan tu le trong mang la : ' , tle ) ;
End.
Program Bai _ tap _ day _ so ;
If a [ i ] mod 2 = 0 then chan : = tchan + a [ i ] Readln ;
a:array [ 1 . . 100 ] of Integer ;
Begin
Clrscr ;
write ( ' Nhap so phan tu cua mang : ' ) ; Readln ( n ) ;
For i : = 1 to n do readln ( a [ i ] ) ;
For i : = 1 to n do
Write ( ' Nhap phan thu thu ' i ) ;
Writeln ( ' Tong cac phan tu chan trong mang la : ' , tchan ) ;
Begin
End ;
tchan : = 0 ; tle : = 0 ;
Else tle : = tle + a [ i ] ;
Uses crt ;
Var i , n , tchan , tle : Integer ;