Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
A) Sai vì dư dấu " ; " trước chữ " then "
B) Sai vì thiếu chữ " write( " sau chữ " then "
C) Sai vì thiếu dấu " = " ở lệnh gán giá trị
D) Sai vì thiếu dấu " : " trước dấu " = " ở lệnh gán giá trị
A: Sai vì dư dấu ;
B: Sai vì thiếu dấu (
C: Sai vì thiếu điều kiện và thiếu dấu = ở phép gán
D: Đúng
A. -> x=7
Giải thích: 6 chia hết cho 3 -> ĐK đúng nên thực hiện câu lệnh x=x+1 <=> x=6+1=7
B. -> x= 12
Giải thích: Điều kiện 6 chia cho 3 dư 2 là sai, nhưng x>=5 là điều kiện đúng nên vẫn thực hiện câu lệnh x=2*x <=> x=2*6 =12
C. -> x=6
Giải thích: Điều kiện 6 chia 2 dư 1 và 6>10 đều sai nên không thực hiện câu lệnh tiếp theo
D. -> x=26
Giair thích: x chia 6 dư 0 ->ĐK đúng -> thực hiện câu lệnh :
x=x*x <=> x =6*6= 36
x=x-10 <=> x=36-10 = 26
uses crt;
var i,n,kt:integer;
begin
clrscr;
readln(n);
kt:=0;
for i=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if (kt=0) and (n>1) then write('phai')
else write('Khong phai');
readln;
end.
Var i,n,souoc:integer;
Begin
While n <= 1 do
Begin
Write('Nhap n = ');readln(n);
End;
For i:=1 to n do
If n mod i = 0 then souoc:=souoc+1;
If souoc = 2 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
mình dùng cách khác nhé
var x,y:longint;
begin
write('nhap x,y:');readln(x,y);
repeat
if x>y then x:=x-y else y:=y-x;
until x=y;
write('ucln la ',x);
readln;
end.
Chia hết cho 2 thì viết " mod 2=0 " có nghĩa là số này chia cho 2 không dư
Không chia hết cho 2 thì viết " mod 2<>0 " có nghĩa là số này chia cho 2 có dư
Viết sao cũng đúng em nhé!