K
Khách

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.

16 tháng 12 2020

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.

16 tháng 12 2020

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.

13 tháng 12 2017

a,Kết quả : 10 chia het cho 2

b,Kết quả : y:=10

Chúc bạn thi tốt ^^

cảm ơn bạn nhiều ~~

LÝ THUYẾT: 1) Năm nay là 2020 vậy tháng 2 có điều kiện THANG2 > 0 và điều kiện nào sao đây: A. THANG2 <= 28 B. THANG2 <= 29 C. THANG2 <= 31 D. THANG2 <= 30 2) Để thể hiện điều kiện D lớn hơn hay 8 E là Gioi câu nào sau đây đúng A. (D >= 8) OR (E = ' Gioi ') B. ( D >= 8) OR (E= ''Gioi'') C. (D >= 8) OR (E = Gioi) D. D .= 8 OR E = Gioi 3) Để tìm giá trị lớn nhất của 2 số a,b thì ta viết: A. Max:=b;If a> Max then Max:=a; B. If (a>b) then...
Đọc tiếp

LÝ THUYẾT:

1) Năm nay là 2020 vậy tháng 2 có điều kiện THANG2 > 0 và điều kiện nào sao đây:

A. THANG2 <= 28 B. THANG2 <= 29 C. THANG2 <= 31 D. THANG2 <= 30

2) Để thể hiện điều kiện D lớn hơn hay 8 E là Gioi câu nào sau đây đúng

A. (D >= 8) OR (E = ' Gioi ') B. ( D >= 8) OR (E= ''Gioi'')

C. (D >= 8) OR (E = Gioi) D. D .= 8 OR E = Gioi

3) Để tìm giá trị lớn nhất của 2 số a,b thì ta viết:

A. Max:=b;If a> Max then Max:=a; B. If (a>b) then Max:=a;If (b>a) then Max:=b;

C. Max:=a;If b>Max then Max:=b; D. Cả 3 câu đều đúng

4) Lệnh nào thể hiện A là số chẵn:

A. If A mod 2 <> 1 then write (' A là số lẻ ');

B. If A mod 2 <> 0 then write (' A là số chẵn ');

C. If A mod 2 = 0 then write (' A là số chẵn ');

D. If A mod 2 = 1 then write (' A là số chẵn ');

5) Chương trình sau cho biết kết quả là gì?

Var a, b: real; x integer; Begin readln(a, b); If a > b then x:=a else x:=b; Write(x); End.

A. Đảo giá trị của 2 biến a, b cho nhau

B. Chương trình không thực hiện được do lỗi khai báo kiểu dữ liệu

C. Xuất ra màn hình số lớn trong 2 số a, b đã nhập

D. Xuất ra màn hình số nhỏ trong 2 số a, b đã nhập

6) Điều kiện nào hợp lệ trong các điều kiện sau khi nói về ngày trong tháng 8:

A. (NGAY > 0) AND (NGAY <= 31) B. (NGAY > 0) AND (NGAY <= 30)

C. NGAY <= 31 D. NGAY > 0

7) Để thể hiện điều kiện D lớn hơn hay bằng 8 và E là Gioi câu nào sau đây đúng:

A. D >= 8 AND E= Gioi B. (D >= 8) AND (E= Gioi)

C. (D >= 8) AND (E= "Gioi") D. (D >= 8) AND (E= 'Gioi')

8) Xác định học sinh thi đậu hay rớt bằng câu lệnh nào sau đây:

A. If ĐTB >= 0 then Writeln('Thi đậu');

B. If ĐTB >= 0 then Writeln('Thi rớt');

C. If ĐTB >= 5 then Writeln('Thi đậu') else Writeln('Thi rớt');

D. If X mod 2=0 then Writeln('Thi rớt') else Writeln('Thi đậu');

9) Tìm số bé nhất trong 3 số x, y, z bằng câu lệnh nào sau đây:

A. min:=x; If y>min then min:=y else min:=z;

B. min:=x; If y>min then min:=y; if z>min then min:=z;

C. min:=x; If y<min then min:=y else min:=z;

D. min:=x; If y<min then min:=y; if z<min then min:=z;

10) Để thể hiện B lớn hơn 10 câu nào sau đây đúng:

A. B >= '10' B. B>= '10' C. B > 10 D. B >= 10

1

Câu 1: B

Câu 2: A

Câu 3: D

Câu 4: C

Câu 5: B

Câu 6: A

Câu 7: D

Câu 8: C

Câu 9: D

Câu 10: C

24 tháng 12 2022

Câu 2:

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n>0 && n%5==0) cout<<"Phai";

else cout<<"Khong phai";

}

25 tháng 4 2019

Lời giải :

Ban đầu x:=1 ; y:=2 ; z:=3 ta có :

x:=x+2 <=> x:=1+2=3

y:=y+2 <=> y:=2+2=4

z:=z+y+x <=> z:=3+4+3=10

Vậy kết quả in ra màn hình sau đoạn lệnh là : 3,4,10

25 tháng 4 2019

Lời giải :

Ban đầu x:=1;y:=2,z:=3 trong chương trình con ta có

x:=x+2 <=> x:=1+2=3

y:=y+2 <=> y:=2+2=4

z:=z+y+x <=> z:=3+4+3=10

Vậy kết quả in ra màn hình là 3,4,10

Câu 1: Đoạn chương trình sau cho kết quả gì? For i:=1 to 10 do write(i,' ); A.12 3 4 5 6 7 89 10 B.Đưa ra 10 khoảng trắng C.Không có kết quả D.1098 7 6 5 4 3 2 1 Câu 2: Đoạn chương trình sau cho kết quả gì? For i:=5 to 10 do write('i'); A.iiiii B.5678910 C.i D.iii Câu 3: Đoạn chương trình sau cho kết quả gì? For i:=5 to 10 do If i mod 5 = 0 then write (i); Diiiii A.1 2 3 4 5 B.1 2 3 4 5 6 7 8 9 10 C.5 10 Câu 4: Đoạn chương trình sau cho kết quả...
Đọc tiếp

Câu 1: Đoạn chương trình sau cho kết quả gì? For i:=1 to 10 do write(i,' );
A.12 3 4 5 6 7 89 10
B.Đưa ra 10 khoảng trắng
C.Không có kết quả
D.1098 7 6 5 4 3 2 1
Câu 2: Đoạn chương trình sau cho kết quả gì? For i:=5 to 10 do write('i');
A.iiiii
B.5678910
C.i
D.iii
Câu 3: Đoạn chương trình sau cho kết quả gì?
For i:=5 to 10 do
If i mod 5 = 0 then write (i);
Diiiii
A.1 2 3 4 5
B.1 2 3 4 5 6 7 8 9 10
C.5 10
Câu 4: Đoạn chương trình sau cho kết quả gì?
S:=1; For i:=5 to 10 do if i mod 3 = 0 then S:=S * i; Write(S);
A.54
B.15
C.50
D.151200
Câu 5: Cho đoạn chương trình sau:
a:=3; b:=2;
If a>b then a:=4 else b:=1;
Sau khi thực hiện đoạn chương trình trên cho kết quả:
A.a=3
B.b=2
C.a=4
D.b=1
Câu 6: Đoạn chương trình sau cho kết quả gì?
S:=0;
For i:=1 to 9 do S:=S+i;
Write(s);
A.45
B.40
C.55
Câu 7: Cho x là biến thực đã được gán giá trị 13.56423. Để hiện lên màn hình nội dung “x=13.6"
cần chọn câu lệnh nào sau đây?
A.Writeln(x:5);
B.Writeln(x);
C.Writeln("x=",x:5:2);
D.Writeln('x=',x:2:1);
Câu 8: Trong NNLT Pascal phát biểu nào sau đây là đúng:
A.Có phân biệt chữ hoa chữ thường.
B.Sau mỗi câu lệnh đều phải có dấu chấm phẩy.
C.Trước lệnh Else bắt buộc phải có dấu chấm phẩy.
D.Lệnh Readln trước câu lệnh End. Không nhất thiết phải có dấu chấm phẩy.
Câu 9: Để thoát khỏi chương trình Pascal ta sử dụng tổ hợp phím nào?
A.Ctrl + Q
B.Ctrl + X
C.Alt + Q
D.Alt +X
Câu 10: Vòng lặp sau đây lặp lại mấy lần?
A:=2
For i:=0 to 7 do a:=a+1;
A.6
B.7
C.8

0
\(I\), Lý thuyết: 1) Điều kiện B mod 2 <> 0 nếu đúng có ý nghĩa gì? a) B là số dương b) B là số âm c) B là số chẵn d) B là số lẻ 2) Cấu trúc rẽ nhánh dạng đầy đủ: a) If điều kiện then câu lệnh 1; else câu lệnh 2; b) If điều kiện then câu lệnh 1else câu lệnh 2; c) If điều kiện then câu lệnh; d) If điều kiện then câu lệnh else câu lệnh; 3) Tìm số chẵn/ lẻ bằng câu lệnh nào sao đây : a) If X mod 2= 0 then...
Đọc tiếp

\(I\), Lý thuyết:

1) Điều kiện B mod 2 <> 0 nếu đúng có ý nghĩa gì?

a) B là số dương b) B là số âm c) B là số chẵn d) B là số lẻ

2) Cấu trúc rẽ nhánh dạng đầy đủ:

a) If điều kiện then câu lệnh 1; else câu lệnh 2;

b) If điều kiện then câu lệnh 1else câu lệnh 2;

c) If điều kiện then câu lệnh;

d) If điều kiện then câu lệnh else câu lệnh;

3) Tìm số chẵn/ lẻ bằng câu lệnh nào sao đây :

a) If X mod 2= 0 then Writeln(' X là số lẻ ');

b) If X mod 2= 0 then Writeln(' X là số chẵn ');

c) If X mod 2= 0 then Writeln(' X là số lẻ ') else Writeln(' X là số chẵn ');

d) If X mod 2= 0 then Writeln(' X là số chẵn') else Writeln(' X là số lẻ ');

4) Tìm số lớn nhất trong 3 số x, y, z bằng câu lệnh nào sau đây:

a) max:=x; If y < max then max:= y else max:= z;

b) max:=x; If y > max then max:= y else max:= z;

c) max:=x; If y > max then max:= y; if z > max then max:= z;

d) max:=x; If y < max then max:= y; if z < max then max:= z;

5) Pascal sử dụng câu lệnh lặp nào sau đây là cấu trúc rẽ nhánh dạng thiếu

a) For ... to ... do; b) If ...then; c) If ...then...else d) While ...do;

6) Chọn câu lệnh Pascal hợp lệ trong các câu sau:

a) If a = 6 then x:= 100; b) If a > b then max:= a; else max:= b;

c) If a > b then max = a; d) If x := a + b then x: =x + 1;

3

1: D

2: B

3: D

4: C

5: B

6: A

11 tháng 2 2020

1) Điều kiện B mod 2 <> 0 nếu đúng có ý nghĩa gì?

a) B là số dương b) B là số âm c) B là số chẵn d) B là số lẻ

2) Cấu trúc rẽ nhánh dạng đầy đủ:

a) If điều kiện then câu lệnh 1; else câu lệnh 2;

b) If điều kiện then câu lệnh 1else câu lệnh 2;

c) If điều kiện then câu lệnh;

d) If điều kiện then câu lệnh else câu lệnh;

3) Tìm số chẵn/ lẻ bằng câu lệnh nào sao đây :

a) If X mod 2= 0 then Writeln(' X là số lẻ ');

b) If X mod 2= 0 then Writeln(' X là số chẵn ');

c) If X mod 2= 0 then Writeln(' X là số lẻ ') else Writeln(' X là số chẵn ');

d) If X mod 2= 0 then Writeln(' X là số chẵn') else Writeln(' X là số lẻ ');

4) Tìm số lớn nhất trong 3 số x, y, z bằng câu lệnh nào sau đây:

a) max:=x; If y < max then max:= y else max:= z;

b) max:=x; If y > max then max:= y else max:= z;

c) max:=x; If y > max then max:= y; if z > max then max:= z;

d) max:=x; If y < max then max:= y; if z < max then max:= z;

5) Pascal sử dụng câu lệnh lặp nào sau đây là cấu trúc rẽ nhánh dạng thiếu

a) For ... to ... do; b) If ...then; c) If ...then...else d) While ...do;

6) Chọn câu lệnh Pascal hợp lệ trong các câu sau:

a) If a = 6 then x:= 100; b) If a > b then max:= a; else max:= b;

c) If a > b then max = a; d) If x := a + b then x: =x + 1;

1, Cho s và i là biến nguyên. Khi chạy đoạn chương trình: s:=0;for i:=1 to 3 do s := s+3*i; s:=s+5;writeln(s); Kết quả in lên màn hình là? * A.12 B. 10 C.23 D. 26 2, Kêt quả của câu lệnh For i:=1 to 20 do if i mod 3=2 then write(i:3); * A.In ra các số lẻ từ 1 đến 20; B. In ra các số chẵn từ 1 đến 20; C. In ra các số chia hết cho 3 từ 1 đến 20; D. In ra các số chia hết cho 3 dư 2 từ 1 đến 20; 3, Trong...
Đọc tiếp
1, Cho s và i là biến nguyên. Khi chạy đoạn chương trình: s:=0;for i:=1 to 3 do s := s+3*i; s:=s+5;writeln(s); Kết quả in lên màn hình là? * A.12 B. 10 C.23 D. 26

2, Kêt quả của câu lệnh For i:=1 to 20 do if i mod 3=2 then write(i:3); *

A.In ra các số lẻ từ 1 đến 20; B. In ra các số chẵn từ 1 đến 20; C. In ra các số chia hết cho 3 từ 1 đến 20; D. In ra các số chia hết cho 3 dư 2 từ 1 đến 20;

3, Trong câu lệnh lặp For i:=3 to 15 do s:=s+i; Có bao nhiêu vòng lặp? *

A. 15; B. 12; C. 13 D. 3;

4, Cho k,m,n nhận giá trị tương ứng 4,5,6; kết thúc câu lệnh sau:X:=n; If ((x mod 2=0)) or (x<=5) then x:=m*k else x:=m div k; thì x có giá trị là ? *

A. 1 B. 0 C. 5. D. 20 5, Cho biết đoạn chương trình Pascal sau đây chương trình thực hiện bao nhiêu vòng lặp?s:=0; n:=0; while s<=5 do n:= n+1;s:= s+n; * A. 3 B. 6 C. 10 D. kết quả khác 6, Cho a,b,c lần lượt nhận giá trị 10,30,20 . Hỏi sau đoạn chương trình Begin X:=a; If x>a then x:=a; if x>b then x:=b;if x>c then x:=c;end; x có giá trị là? * A. 20 B. 10 C. 30 D. Cả ba đáp án đều sai. 7, Cho x:=7; kết thúc câu lệnh If ((x mod 3=0)) and (x<=8) then x:=x+10; thì x có giá trị là ? * A. 8 B. 10 C. 17 D. 7 8, Cho s và i là biến nguyên. Khi chạy đoạn chương trình s := 1; for i:=1 to 5 do s := s+i; Kết quả in lên màn hình là của s là ? * A. 15 B. 16 C. 11 D. 22 9, Cho biết đoạn chương trình Pascal sau đây, khi kết thúc giá trị của S bằng bao nhiêu? S:=0; n:=0;while S<=3 do begin n:= n+1;S:= s+n; end; * A. 15 B. 10 C. 6 D. 3
1
10 tháng 12 2020

1. C

2. D

3. C

4. D

5. D

6. B

7. D

8. B

9. C

 

26 tháng 2 2022

Sai