uses crt;
var a,d:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i]>0 then
begin
inc(dem);
b[dem]:=a[i];
end;
writeln('So duong cuoi cung trong mang la: ',b[dem]);
readln;
end.
viết công thức pascal nhập số n từ bàn phím . xuất ra màn hình các số chia hết cho 2 và 5 từ 1 đến n
viết công thức pascal nhập số n từ bàn phím, thực hiện xuất ra màn hình: +các số nguyên tố từ 2 đến n
+các số chính phương từ 0 đến n
+các số hoàn hảo từ 1 đến n
Làm giúp mình với!!!
VCT nhập vào số tự nhiên n. In ra màn hình kết quả tính n!
Viết chương trình Pascal cho phép nhập vào 1 số có 5 chữ số
- Nếu ng sử dụng nhập 1 số chưa đúng yêu cầu, xuất ra thông báo số nhập chưa đúng và kết thúc chương trình.
- Nếu số nhập đúng có 5 chữ số: xét xem số đó có phải số đỉnh đồi hay không? Biết số đỉnh đồi là số ở giữa là số lớn nhất. Ví dụ số 23765 là số đỉnh đồi, số 23767 ko phải số đỉnh đồi.
1Cho số nguyên dương N ,đếm số cách phân tích N thành tổng hai số nguyên tố .
2 Viết chương trình nhập vào số nguyên dương N.
a) Xuất ra màn hình N có phải là số nguyên tố đối xứng hay không.
b) Thông báo ra màn hình số nguyên tố đối xứng nhỏ nhất lớn hơn N.
mong các bạn giúp mình với ạ.
Viết chương trình nhập vào 3 số nguyên dương a, b, c. Xuất ra màn hình tổng và tích của 3 số đó.
Viết chương trình nhập vào 3 số nguyên dương a, b, c. Xuất ra màn hình tổng và tích của 3 số đó.
1) Viết chương trình pascal, ứng dụng câu lệnh điều kiện
Viết chương trình nhập vào một số nguyên a từ bàn phím. Xuất ra màn hình số a vừa nhập là số chia hết cho 5 hay số không chia hết cho 5
mình muốn xuất dữ liệu theo kiểu a*b thì mình phải làm như thế nào trong pascal.
pascal nhập 4 số a b c d và thực hiện yêu cầu sau : nếu c=0 và d=0 thì xuất ra màn hình a và b.Nếu c=0 và d khác 0 thì xuất ra kết quả phân số c/d . Nếu c khác 0 và d khác 0 thì xuất ra kết quả phán số a/b.Nếu c khác 0 và d khác 0 thì tính : câu A) a/b+c/d ; câu B) a/b-c/d ; câu C ) a/b*c/d ; câu D) a/b / c/d.
