Viết chương trình: cho 3 số nguyên x, y, z tìm số nhỏ nhất trong 3 số này
2 câu trả lời
program Tim_so_nho_nhat;
var x,y,z: longint;
begin
Clrscr;
write('Nhap so x= ');readln(x);
write('Nhap so y= ');readln(y);
write('Nhap so z= ');readln(z);
min:=x;
if min>y then min:=y
else if min>z then min:=z;
writeln('So nho nhat la ',min);
readln;
end.
Thuật toán:
Bước 1: Nhập x, y, z từ bàn phím
Bước 2: min ← x
Bước 3: Nếu y<min thì min ← y
Bước 4: Nếu z<min thì min ← z
Bước 5: Xuất kq là min
Chương trình:
Program BTT;
Uses crt;
Var x,y,z,min: longint;
Begin
Clrscr;
Write('Nhap x, y, z: '); Readln(x,y,z);
min:=x;
If y<min then min:=y;
If z<min then min:=z;
Write('GTNN la: ',min);
Readln
End.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
