Var a,b:real;
Begin
Write('a = ');readln(a);
Write('b = ');readln(b);
If a > b then write('So lon la ',a:10:2)
Else if b > a then write('So lon la ',b:10:2)
Else write('Hai so bang nhau');
Readln;
End.
Var a,b:real;
Begin
Write('a = ');readln(a);
Write('b = ');readln(b);
If a > b then write('So lon la ',a:10:2)
Else if b > a then write('So lon la ',b:10:2)
Else write('Hai so bang nhau');
Readln;
End.
Viết chương trình Pascal nhập vào 2 số a, b in ra màn hình số lớn hơn. Dùng câu lệnh if... then... else…
Giải chi tiết giúp mình nhé
Viết chương trình Pascal nhập vào 2 số a, b in ra màn hình số lớn hơn. Dùng câu lệnh if... then...
Viết chương trình nhập vào số nguyên dương 𝑛. Xuất ra màn hình chữ số lớn nhất của 𝑛. pascal. dung longint, while , for :> Helppp me !!!!
Pascal / Viết Chương trình nhập vào và đưa ra màn hình cách đọc các chữ số tương ứng với số đó
VD: Nhập vào số "12345" ;Xuất ra màn hình "một hai ba bốn năm"
mong mn chịu khó giúp :(
Viết vào chương trình nhập 3 số nguyên a,b,c.Em hãy tính tích giá trị lớn nhất và giá trị nhỏ nhất.Em hãy giải thích câu lệnh
Viết vào chương trình nhập 3 số nguyên a,b,c.Em hãy tính tích giá trị lớn nhất và giá trị nhỏ nhất.Em hãy giải thích câu lệnh
Viết chương trình Pascal tính tổng S = 1 + 2 +…+ 10. Dùng câu lệnh for… to… do
1. Viết chương trình nhập vào 1 dãy số, in ra các số lớn hơn 0, bé hơn 0. Tính tổng các số lớn hơn 0, bé hơn 0. In ra các số chẵn, số lẻ. In ra các số vừa chia hết cho 2 và 5. Sắp xếp dãy theo thứ tự tăng dần. Tìm giá trị lớn nhất trong dãy. Chèn thêm vào trong dãy 1 phần tử ở bất kỳ vị trí nào
Giúp mik với
VCT in ra màn hình các số chính phương trong khoảng từ m đến n(m<n). N,m được nhập từ bàn phím (pascal)