Tham khảo!
program baitap;
uses crt;
var a:integer;
procedure chanle(x:integer);
begin
if ((x mod 2) = 0) then write('So nhap vao la so chan.') else
write('So nhap vao la so le.');
end;
begin
clrscr;
write('Nhap a: ');readln(a);
chanle(a);
readln;
end
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 ….)
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ố
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?
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
\nViế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.
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 mang một chiều các số thực, số lượng phần tử không quá 1000. Đưa ra màn hình số lẻ cuối cùng và chỉ số của nó trong mảng bằng chương trình pascal
viết chương trình in ra các số lẻ từ m đến n với m<n và m,n là 2 số nguyên bất kỳ nhập từ bàn phím
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?
