program bt;
uses crt;
var n,i,j:word;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n+1 do a[i]:=0;
a[1]:=1;
for i:=0 to n do
begin
for j:=i+1 downto 2 do a[j]:=a[j]+a[j-1];
for j:=1 to i+1 do write(a[j]:3);
writeln;
end;
readln;
end.
Nhập từ bàn phím 1 dãy n số nguyên. Viết chương trình in ra màn hình các số lẻ có trong dãy. giải giúp em với ạ
a) Nhập vào hai số nguyên a và b (1≤ a,b ≤ 109). Tính và in lên màn hình ước chung lớn nhất(UCLN) v à bội chung nhỏ nhất (BCNN) của a,b.
b)Dãy số fibonacy được định nghĩa như sau:
f1=f2=1
fn=fn-1+fn-2 (với n >=3)
Hãy viết chương trình in ra n số đầu tiên của dãy fibonacy.
Dữ liệu nhập:là số nguyên n (1<=n<=30)
Dự liệu xuất: là n số fibonacy đầu tiên trên cùng một dòng, mỗi số cách nhau một khoảng trắng.
Bài 1: Nhập từ bàn phím một dãy số nguyên ko âm. Hãy in ra màn hình chỉ số i nhỏ nhất sao cho tổng các phần tử từ 1 đến i lớn hơn 100.
Bài 2: Hãy viết chương trình Pascal để thực hiện các nhiệm vụ sau:
_ Nhập vào tù bàn phím 1 dãy số ko quá 30 số nguyên
_ Kiểm tra rồi cho biết dãy số vừa nhập có pải là dãy số ko giảm hay ko ? ( VD 1,2,5,5,6,8,9 là dãy số ko giảm )
Anh chị em bạn dì chú bác ông bà bố mẹ cậu mợ bá ơi, giúp với, cần gấp lắm, ngày kìa thi rồi.....
Viết chương trình nhập vào mãn chiều cao của học sinh lớp 8 in ra màn hình chiều cao của các bạn 1 mét 5 trở lên
Viết chương trình nhập vào số nguyên dương. Tính và in ra kết quả màn hình ;
- các số chia hết cho 3 từ 1 đến n
- có bao nhiêu số chia hết cho 3
- tổng các số đó
vd : nhập n = 20. in ra
- các số chia hết cho 3 : 3 6 9 12 15 18
- có 6 số chia hết cho 3
- tổng là ; 63
Em cần gấp giúp ẹm 
Câu 1:Viết chương trình nhập vào 1 dãy N số nguyên. Đưa ra màn hình tổng các số dương chia hết cho 3
Viết chương trình nhập vào 1 dãy số nguyên gồm 80 phần tử in ra màn hình dãy số vừa nhập
