var x,y:interger;
begin
Write('Nhap hai so x va y: '); readln(a,b);
If (x>y) then writeln(x*x);
if (x=y) then writeln(x+y);
if (x<y) then writeln(y*y);
readln;
end.
đoạn trình sau làm việc gì
a:=0
ni:=10
ì n<>0 then for i:=1 to n do writeln(i);
Cho dãy số 16,7,21,3,25
Đếm và tính tổng các số chia hết cho 3
viết chương trình nhập vao từ bàn phím số nguyên dương M,N(N<=100) và dãy số A1,A2,... Đếm xem có bn phần tử trong mảng= số M và hiển thị kết quả trên màn hình
.cho phương trình ẩn x:ax2+(b-m)x+c=0 .Viết chương trình :
a) giải phương trình với hệ số a=0.
b)biện luận nghiệm của phương trình theo tham số m.
Bản chất của rẽ nhánh hoạt động của phần mềm máy tính là gì
O
viết chương trình nhập vào số nguyên N . kiểm tra xem N có chia hết cho 3hay không ? thông báo kết quả ra màn hình
Viết chương trình nhập vào từ bàn phím số tuổi của 1 người , đưa ra màn hình người đó là thiếu niên, thanh niên, trung niên hay lão niên. Biết rằng nếu nhỏ hơn 18 tuổi là thiếu niên, từ 18 đến 39 tuổi là thanh niên, từ 40 đến 60 tuổi là trung niên và lớn hơn 60 tuổi là lão niên
Nhập số năm từ bàn phím, đưa ra màn hình thông báo số ngayf của năm đó, biết rằng năm nhuận là năm chia hết cho 400 hoặc chia hết cho 4 và không chia hết cho 100
Viết câu lệnh If - then với đề sau.
Em cảm ơn ạ
