program fibonacci;
uses crt;
var a:array[0..1000] of integer;
i,n: integer;
begin
clrscr;
a[0] :=0;a[1]=1;
for i:= 2 to n do
a[i]=a[i-1]+a[i-2];
writeln('so hang thu ',n,' cua day la: ',a[n]);
end.
program fibonacci;
uses crt;
var a:array[0..1000] of integer;
i,n: integer;
begin
clrscr;
a[0] :=0;a[1]=1;
for i:= 2 to n do
a[i]=a[i-1]+a[i-2];
writeln('so hang thu ',n,' cua day la: ',a[n]);
end.
giúp mình với ạ :<
Viết chương trình nhập từ bàn phím một dãy số nguyên dương gồm N (N <= 100) phần tử mỗi phần tử có giá trịnh không quá 500. Hãy in ra màn hình số lượng các phần tử trong dãy là số nguyên tố và tổng các số nguyên tố đó .
viết chương trình nhập một dãy A gồm N số nguyên. Hãy cho biết trong dãy đó có bao nhiêu số chia hết cho 3
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
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 tính va xuất ra TBC từ 1 - N ( N là số nhập từ bàn phím).
Cho dãy số gồm N số nguyên A1,A2,... An và số nguyên K. - Tìm cách chọn K phần tử liên tiếp nhau trong dãy số A sao cho tổng giá trị của chúng là lớn nhất.
Input: N=9 , K=2 và dãy số: 9 -1 9 -8 -2 -2 3 5 -8
Output: 8
( Giải thích:Có 3 cách chọn 2 phần tử liên tiếp nhau thỏa mãn điều kiện, đó là các cặp phần tử ở các vị trí: (1, 2), (2, 3), (7, 8) và tổng giá trị của các phần tử được chọn là 8.)
NHỜ MỌI NGƯỜI GIÚP ĐỠ Ạ. CẢM ƠN MN NHIỀU NHÉ!
viết chương trình tính tổng các số lẻ trong phạm vi từ M đến N với M, N là 2 số nguyên dương được nhập từ bàn phím (M<N).
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?