uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
if (a>0) and (b>0) then writeln(a*b)
else writeln('Nhap lai');
readln;
end.
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
if (a>0) and (b>0) then writeln(a*b)
else writeln('Nhap lai');
readln;
end.
viết chương trình tính tam giác: Nhập ba số a,b,c bất kì.Kiểm tra xem nó có thể là ba cạnh của tam giác hay không, nếu không thì in ra màn hình ''không làm ba cạnh của một tam giác', ngược lại thì in diện tích, chu vi của tam giác ra màn hình
Viết chương trình nhập vào 2 số d và b từ bàn phím xuất xuất ra màn hình số a nếu a>b ngược lại xảy ra b
Nhập vào 2 số a và b. Nếu a>b, thì in ra màn hình a ngược lại thì in ra b
Viết chương trình nhập vào hai số a và b. Nếu a<b thì in ra màn hình kết quả của a.
Em hãy xác định bài toán và mô tả thuận toán trên
Mọi người giúp em với ạ
free pascal nhập a, b, c bất kì. kiểm tra xem nó có là 3 cạnh của tam giác hay không, nếu không thì in ra màn hình ‘a, b, c khong la ba canh cua tam giac’. ngược lại thì in diện tích và chu vi của tam giác ra màn hình.
Viết công thức nhập vào 2 số nguyên a và b. Nếu số a lớn hơn b thì xuất ra màn hình hai số vừa nhập ngược lại thì hoán đổi giá trị hai số a và b và xuất ra màn hình. Em mới học lớp 7 mà tại trường điểm nên cho nâng cao lớp 8 luôn ạ
Viết chương trình nhập vào hai số a và b. Nếu a<b thì in ra màn hình kết quả của a.
Hãy cho biết điều kiện của bài toán trên là gì?
Hãy cho biết câu lệnh của bài toán trên là gì?
viết chương trình nhập vào 1 sô a và in ra màn hình nếu a là sô chẵn
Viết chương trình tính a/b. Nếu b<>0 (b khác 0) thì tính. Ngược lại báo lỗi "B không thỏa mãn điều kiện".