Bài này dễ lắm đó bạn
uses crt;
var m:array[1..300]of longint;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
m[1]:=1;
m[2]:=1;
i:=2;
repeat
i:=i+1;
m[i]:=m[i-1]+m[i-2];
until i=n;
for i:=1 to n do
write(m[i]:4);
readln;
end.
Steve trưc nhật vì vậy hôm nay bạn đến trường sớm, giặt khăn lau bảng và xóa bảng. Đang xóa bỗng Steve nhận thấy dãy số mà mình đã xóa một phần khá đặc biệt, phần đầu của nó là
1 2 3 2 3 4 3 4 5 4 5 6 5 6 7
Đáng tiếc, phần còn lại của dãy đã bị xóa mất. Cuối cùng Steve cũng xóa xạch bảng trước khi trống vào lớp vang lên, nhưng dãy số trên vẫn cứ lởn vởn mãi trong đầu.
Buổi tối, khi lên giường ngủ, Steve lại nghĩ về dãy số này. Steve nhận thấy số 1 xuất hiện 1 lần trong dãy, số 2 xuất hiện 2 lần và lần đầu ở vị trí thứ 2, số 3 xuất hiện 3 lần và lần đầu ở vị trí thứ 3, nhưng số 4 thì lần đầu tiên xuất hiện không ở vị trí thứ 4. Tổng quát hơn số k sẽ xuất hiện lần đầu ở vị trí thứ mấy trong dãy.
Bạn có thể giúp Steve tìm ra vị trí xuất hiện đầu tiên của số nguyên k(k<=1 tỷ) trong dãy không?
VD: NUM25.inp :5
NUM25.out :9
vậy vị trí xuất hiện đầu tiên của 5 trong dãy số đó là 9
Viết chương trình nhập điểm kiểm HK môn Tin. Nhập học sinh và in ra màn hình điểm kiểm tra HK của một học sinh đó với N và điểm kiểm tra được nhập từ bàn phím(sử dụng biển mảng)
Câu 1: Nhập mảng A và tính tổng tất cả phần tử trong mảng đó ra màn hình
Câu 2: \(A=\frac{x^6}{x^3}+2\) . In kết quả của A ra màn hình biết x là số nguyên dương được nhập từ bàn phím
1,Nhập vào một dãy các số nguyên và nhập trị x,rồi đếm xem trong dãy có mặt bao nhiêu số x?
2, Viết chương trình nhập vào một dãy các số nguyên và đếm số các số dương,âm bằng không của dãy
3,Viết chương trình nhập vào một dãy các số nguyên,tính tổng bình phương của các số dương trong dãy
Viết chương trình in ra màn hình các số chia hết cho 3 trong phạm vi từ 1 đến 20
Hôm nay là ngày đầu tuần , như thường lệ ta sẽ làm event tiếp
Câu hỏi như sau :
C1 : Viết chương trình tính tuổi của bạn Nam biết bạn Nam sinh năm 2003 . Hãy kiểm tra xem bạn Nam có đang ở trong tuổi vị thành niên hay không ( Tổ chức Y tế thế giới quy định là tuổi từ 10 - 19 tuổi là vị thành niên)
C2 : Viết chương trình tìm abc biết \(abc=a^3+b^3+c^3+3abc\) . Với abc là số nguyên
C3 : Viết chương trình tính tổng bằng cách sử dụng vòng lặp while..do . A=1+2+3+4+...+n với n là số nguyên dương được nhập từ bàn phím
Phần thưởng sẽ được trao với mỗi câu là 1GP . Tùy trường hợp các bạn trình bày tốt sẽ được tặng thêm 1GP
Viết chương trình để tính chu vi và diện tích của hình vuông với cạnh a là số nguyên được nhập từ bàn phím.
Câu 1 : Viết chương trình nhập vào 1 số nguyên dương c từ bàn phím. Hãy viết chương trình pascal xác định số a chia hết cho 2 hay không? In kết quả ra màn hình.
Câu 2: Viết chương trình lập 3 số nguyên a,b,c từ bàn phím. Em hãy viết chương trình pascal tính tổng 3 số trên. In kết quả ra màn hình.
Câu 3: viết chương trình pascal nhập 3 số nguyên từ bàn phím. Em hãy viết chương trình pascal kiểm tra xem số vừa nhập là chẵn hay lẻ và in kết quả ra màn hình.
