uses crt;
var a:integer;
begin
clrscr;
write('nhap a='); readln(a);
if a=10 then writeln('phai')
else writeln('ko phai');
readln;
end.
Cấu trúc rẽ nhánh và lặp
Các câu hỏi tương tự
Em hãy viết một chương trình hoàn chỉnh có sử dụng cấu trúc lặp và cấu trúc rẻ nhánh?
Xem chi tiết
Viết chương trình nhập vào 3 số a, b, c. Kiểm tra chúng có phải là bộ số pitago hay không?
C1: viết câu lệnh rẽ nhánh kiểm tra xem số a có lớn hơn 100 k? C2: viết câu lệnh rẽ nhánh kiểm tra xem a là số âm k?
Viết chương trình nhập vào một số nguyên và kiểm tra xem số vừa nhập là số chẵn hay lẻ. (Sử dụng câu lệnh If … then … else ….)
Viết chương trình nhập vào một số nguyên và kiểm tra xem số vừa nhập là số chẵn hay số lẻ. (Sử dụng câu lệnh If … then dạng thiếu)
Viết chương trình nhập vào 3 số a, b, c. Kiểm tra chúng có phải là độ dài 3 cạnh của một tam giác không? Nếu có hãy tính chu vi và diện tích tam giác ấy.
a, Viết chương trình nhập vào số nguyên dương, tính N!=1*2*3*...*N
VD N=5 thì in ra 5!=120
b, Viết chương trình tính tổng số chẵn từ 1 đến N với N là số nguyên sau đó hiển thị ra tông
VD N=10 thì tổng số chẵn là 30
c, Viết chương trình nhập vào của một số nguyên dương N, kiểm tra xem có phải số nguyên tố
1. Nhập vào số nguyên n từ bàn phím. Tính n! rồi hiển thị kết quả ra màn hình với 0!=1; 1!=1; 2!....
2. Nhập vào 3 số nguyên a,b,c bất kì. Kiểm tra 3 số nguyên đó có là 3 cạnh của một tam giác vuông hay không?
1)viết công thức pascal nhập vào số nguyên a từ bàn phím. kiểm tra và suất ra từ màn hình. a là số chẵn hay lẻ.
\n\n2)viết chương trình pascal nhập vào 2 số a và b. so sánh 2 số đó.
\n\nCảm ơn rất nhiều
\n