Top 1 ✅ Gõ chương trình pascal: 1. Nhập vào 3 số [nguyên dương khác nhau]. In ra các số theo thứ tự tăng dần. 2. Nhập vào 4 số [nguyên dương khác nhau]. a/ được cập nhật mới nhất lúc 2021-11-16 08:51:03 cùng với các chủ đề liên quan khác
Gõ chương trình pascal: 1.Nhập ѵào 3 số [nguyên dương khác nhau].In ra các số theo thứ tự tăng dần.2.Nhập ѵào 4 số [nguyên dương khác nhau].a/
Hỏi:
Gõ chương trình pascal: 1.Nhập ѵào 3 số [nguyên dương khác nhau].In ra các số theo thứ tự tăng dần.2.Nhập ѵào 4 số [nguyên dương khác nhau].a/Gõ chương trình pascal:1.Nhập ѵào 3 số [nguyên dương khác nhau].In ra các số theo thứ tự tăng dần.2.Nhập ѵào 4 số [nguyên dương khác nhau]. a/ In ra số lớn nhất, số nhỏ nhất. b/ In ra hai số không phải lớn nhất ѵà nhỏ nhất.
3.Nhập chiều dài 3 đoạn thẳng [nguyên dương].Cho biết có thể ghép 3 đoạn này thành một tam giác hay không.Nếu có thì Ɩà tam giác gì: đều, vuông cân [giả sử có thể xảy ra trường hợp này], vuông, cân hay thường?
Đáp:
haianh:Uses crt;Var a,b,c: longint;Begin Clrscr; Write[‘Nhap a,b,c: ‘]; Readln[a,b,c]; If [a>b] and [a>c] and [b>c] then Write[a:5,b:5,c:5]; If [a>b] and [a>c] and [c>b] then Write[a:5,c:5,b:5]; If [b>a] and [b>c] and [a>c] then Write[b:5,a:5,c:5]; If [b>a] and [b>c] and [c>a] then Write[b:5,c:5,a:5]; If [c>a] and [c>b] and [a>b] then Write[c:5,a:5,b:5];
If [c>a] and [c>b] and [b>a] then Write[c:5,b:5,a:5];
Readln
End.
Uses crt;Var a,b,c: longint;Begin Clrscr; Write[‘Nhap a,b,c: ‘]; Readln[a,b,c]; If [a>b] and [a>c] and [b>c] then Write[a:5,b:5,c:5]; If [a>b] and [a>c] and [c>b] then Write[a:5,c:5,b:5]; If [b>a] and [b>c] and [a>c] then Write[b:5,a:5,c:5]; If [b>a] and [b>c] and [c>a] then Write[b:5,c:5,a:5]; If [c>a] and [c>b] and [a>b] then Write[c:5,a:5,b:5];
If [c>a] and [c>b] and [b>a] then Write[c:5,b:5,a:5];
Readln
End.
Gõ chương trình pascal: 1.Nhập ѵào 3 số [nguyên dương khác nhau].In ra các số theo thứ tự tăng dần.2.Nhập ѵào 4 số [nguyên dương khác nhau].a/
Trích nguồn : ...
Vừa rồi, trungtamtiengnhat.edu.vn đã gửi tới các bạn chi tiết về chủ đề Gõ chương trình pascal: 1. Nhập vào 3 số [nguyên dương khác nhau]. In ra các số theo thứ tự tăng dần. 2. Nhập vào 4 số [nguyên dương khác nhau]. a/ ❤️️, hi vọng với thông tin hữu ích mà bài viết "Gõ chương trình pascal: 1. Nhập vào 3 số [nguyên dương khác nhau]. In ra các số theo thứ tự tăng dần. 2. Nhập vào 4 số [nguyên dương khác nhau]. a/ " mang lại sẽ giúp các bạn trẻ quan tâm hơn về Gõ chương trình pascal: 1. Nhập vào 3 số [nguyên dương khác nhau]. In ra các số theo thứ tự tăng dần. 2. Nhập vào 4 số [nguyên dương khác nhau]. a/ [ ❤️️❤️️ ] hiện nay. Hãy cùng trungtamtiengnhat.edu.vn phát triển thêm nhiều bài viết hay về Gõ chương trình pascal: 1. Nhập vào 3 số [nguyên dương khác nhau]. In ra các số theo thứ tự tăng dần. 2. Nhập vào 4 số [nguyên dương khác nhau]. a/ bạn nhé.
Bài 9. Viết chương trình nhập vào số nguyên n gồm ba chữ số. Xuất ra màn hình theo thứ tự tăng dần của các chữ số. Code c:#include int main[] { int n, a, b, c, doi; printf["Nhap so nguyen n[gom 3 chu so]: "]; scanf["%d", &n]; a = n/100; b = [[n%100]/10]; c = n%10; if[a>b] { doi=a; a=b; b=doi; } if[b>c] { doi=b; b=c; c=doi; } if[a>b] { doi=a; a=b; b=doi; } printf["%d%d%d", a, b, c]; } |
Top 1 ✅ Viết chương trình Pascal nhập 3 số và in ra màn hình theo thứ tự tăng dần[ có khả năng làm luôn thứ tự Giảm Dần[ nam 2022 được cập nhật mới nhất lúc 2021-12-17 01:48:14 cùng với các chủ đề liên quan khác
Viết chương trình Pascal nhập 3 số ѵà in ra màn hình theo thứ tự tăng dần[ có khả năng Ɩàm luôn thứ tự Giảm Dần[
Hỏi:
Viết chương trình Pascal nhập 3 số ѵà in ra màn hình theo thứ tự tăng dần[ có khả năng Ɩàm luôn thứ tự Giảm Dần[Viết chương trình Pascal nhập 3 số ѵà in ra màn hình theo thứ tự tăng dần[ có khả năng Ɩàm luôn thứ tự Giảm Dần[
Đáp:
thubichdan:Tăng dần:
Program NN;Uses crt;Var A: array[1..3] of longint; i,j,tg: longint;Begin Clrscr; For i:=1 to 3 do Read[A[i]]; For i:=1 to 2 do For j:=i+1 to 3 do If A[i]>A[j] then Begin tg:=A[i]; A[i]:=A[j]; A[j]:=tg; End; For i:=1 to 3 do Write[A[i],’ ‘]; Readln
End.
Giảm dần:
Program NN;Uses crt;Var A: array[1..3] of longint; i,j,tg: longint;Begin Clrscr; For i:=1 to 3 do Read[A[i]]; For i:=1 to 2 do For j:=i+1 to 3 do If A[i]A[j] then Begin tg:=A[i]; A[i]:=A[j]; A[j]:=tg; End; For i:=1 to 3 do Write[A[i],’ ‘]; Readln
End.
Giảm dần:
Program NN;Uses crt;Var A: array[1..3] of longint; i,j,tg: longint;Begin Clrscr; For i:=1 to 3 do Read[A[i]]; For i:=1 to 2 do For j:=i+1 to 3 do If A[i]A[j] then Begin tg:=A[i]; A[i]:=A[j]; A[j]:=tg; End; For i:=1 to 3 do Write[A[i],’ ‘]; Readln
End.
Giảm dần:
Program NN;Uses crt;Var A: array[1..3] of longint; i,j,tg: longint;Begin Clrscr; For i:=1 to 3 do Read[A[i]]; For i:=1 to 2 do For j:=i+1 to 3 do If A[i]