viết câu lệnh if -then cả dạng đủ và thiếu để tìm giá trị nhỏ nhất của 3 số a,b,c.
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.
Những câu hỏi liên quan
BA
2 tháng 12 2019
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.
4 tháng 5 2021
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
L
21 tháng 2 2022
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.
6 tháng 3 2023
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)
13 tháng 11 2021
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
*Dạng đầy đủ:
If a>b then max:=b else max:=a;
If b>c then max:=c else max:=b;
if c>a then max:=a else max:=c;
*Dạng thiếu:
If a>b then max:=b;
If b>c then max:=c;
if c>a then max:=a;
Min chứ chị nhỉ?