Tức tìm GTNN trong 3 số đó hả bạn?

program tim_gtnn;

uses crt;

var min,a,b,c: real;

begin

clrscr;

writeln('nhap so thu nhat:'); readln(a);

writeln('nhap so thu hai:'); readln(b);

writeln('nhap so thu ba:'); readln(c);

min:=a;

min:=b;

min:=c;

if min>a then min:=a;

if min>b then min:=b;

if min>c then min:=c;

writeln(' gia tri nho nhat la:',min:6:2);

readln;

end.

*Dạng thiếu

nn:=a;

if nn>b then nn:=b;

if nn>c then nn:=c;

*Dạng đủ

nn:=a;

if nn>b then nn:=b

else if nn>c then nn:=c;

Chọn C

a) Điều kiện là a>6

b) Câu lệnh của câu lệnh 1 là x:=x*7

Câu lệnh của câu lệnh 2 là y:=y-4

Sao lại kiểm tra 15 phút z =))

Câu 1: Cú pháp lệnh của điều kiện dạng thiếu là :

A. If <Câu lệnh>; then <Điều kiện >

B. If <Điều kiện> then <Câu lệnh >;

C. If < Điều kiện 1> then <Điều kiện 2>

D. If < Câu lệnh 1>; then <Câu lệnh 2>;

Câu 2: Khai báo biến nào sau đây là sai:

A. Var a: real;

B. Var a,b: real;

C. Var a b: real;

D. Var a, b, c: real;

Câu 3: Cho a:= 2; b:= 3; Kết quả sau khi thực hiện câu lệnh dưới đây là: if a=b then writeln(‘a=b’) else writeln(‘a<>b’);

A. a>b

B. a=b

C. a<b

D. a<>b

Câu 4: Cách khai báo hằng nào sau đây là đúng:

A. Const pi:=3,14 real;

B. Const pi: 3,14;

C. Const pi=3,14 real;

D. Const pi=3.14;

Câu 5: Đâu là từ khóa trong ngôn ngữ lập trình Pascal?

A. Uses;

B. Hinh_tron;

C. End;

D. A và C.

Câu 6: Trong các tên sau đây, tên nào là hợp lệ trong ngôn ngữ Pascal?

A. Lop 8A;

B. Tbc;

C. Begin

D. 8B.

Câu 7: Kết quảcủa phép toán 45 div 2 mod 3 + 1 là bao nhiêu?

A. 2.

B. 7;

C. 5;

D. 3;

Câu 8: Trong ngôn ngữ lập trình Pascal, câu lệnh khai báo nào sau đây đúng?

A. var a, b : integer;

B. var x = real;

C. const x := 5 ;

D. var thong bao : string.

Câu 9: Trong ngôn ngữ lập trình Pasal, câu lệnh gán nào sau đây đúng?

A. x := real;

B. y = a +b;

C. z := 3;

D. i = 4.

Câu 10: Xét chương trình sau:

Var x: integer;

Begin

x:=1;

y:= 5;

Writeln(x+y);

Readln;

End.

Kết quả của chương trình trên là:

A. 1

B. 5

C.6

D. Tất cả đều sai.

Câu 1: Cú pháp lệnh của điều kiện dạng thiếu là :

A. If <Câu lệnh>; then <Điều kiện >

B. If <Điều kiện> then <Câu lệnh >;

C. If < Điều kiện 1> then <Điều kiện 2>

D. If < Câu lệnh 1>; then <Câu lệnh 2>;

Câu 2: Khai báo biến nào sau đây là sai:

A. Var a: real;

B. Var a,b: real;

C. Var a b: real;

D. Var a, b, c: real;

Câu 3: Cho a:= 2; b:= 3; Kết quả sau khi thực hiện câu lệnh dưới đây là: if a=b then writeln(‘a=b’) else writeln(‘a<>b’);

A. a>b

B. a=b

C. a<b

D. a<>b

Câu 4: Cách khai báo hằng nào sau đây là đúng:

A. Const pi:=3,14 real;

B. Const pi: 3,14;

C. Const pi=3,14 real;

D. Const pi=3.14;

Câu 5: Đâu là từ khóa trong ngôn ngữ lập trình Pascal?

A. Uses;

B. Hinh_tron;

C. End;

D. A và C.

Câu 6: Trong các tên sau đây, tên nào là hợp lệ trong ngôn ngữ Pascal?

A. Lop 8A;

B. Tbc;

C. Begin

D. 8B.

Câu 7: Kết quảcủa phép toán 45 div 2 mod 3 + 1 là bao nhiêu?

A. 2.

B. 7;

C. 5;

D. 3;

Câu 8: Trong ngôn ngữ lập trình Pascal, câu lệnh khai báo nào sau đây đúng?

A. var a, b : integer;

B. var x = real;

C. const x := 5 ;

D. var thong bao : string.

Câu 9: Trong ngôn ngữ lập trình Pasal, câu lệnh gán nào sau đây đúng?

A. x := real;

B. y = a +b;

C. z := 3;

D. i = 4.

Câu 10: Xét chương trình sau:

Var x: integer;

Begin

x:=1;

y:= 5;

Writeln(x+y);

Readln;

End.

Kết quả của chương trình trên là:

A. 1

B. 5

C.6

D. Tất cả đều sai.

Câu 1: B

Câu 2: C

Câu 3: D

Câu 4: D
Câu 5; D

Câu 6: B

Câu 7: A

Câu 8: A

Câu 9: C

Câu 10: C

D. If < Điều kiện > then < Câu lệnh 1 > Else < Câu lệnh 2 >;

Câu 1: B

Câu 2: C

Câu 3: B

Câu 4: A

a = int(input('Nhập số nguyên a: '))

b = int(input('Nhập số nguyên b: '))

c = int(input('Nhập số nguyên c: '))

if a > b and a > c:

          print('Số lớn nhất là a =', a)

elif b > a and b > c:

          print('Số lớn nhất là b =', b)

else:

          print('Số lớn nhất là c =', c)

Tham khảo!

program baitap;
uses crt;
var a:integer;
procedure chanle(x:integer);
begin
     if ((x mod 2) = 0) then write('So nhap vao la so chan.') else
     write('So nhap vao la so le.');
end;
begin
     clrscr;
     write('Nhap a: ');readln(a);
     chanle(a);
     readln;

end