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 để 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.
viết chương trình cho biết chữ số hàng trăm chục đơn vị của 1 số có 3 chữ số
VD :357 thì hàng trăm là 3 ,hàng chục là 5 , hàng đơn vị là 7
(gợi ý dùng mod và div)
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
Bài 1: viết các biểu thức toán sau đây dưới dạng biểu thức Pascal (viết dưới dạng chương trình)
a/\(\left(5-1\right)^2\)chia cho 3 lấy dư
b/\(10^2+\dfrac{24-4}{4}\)
Bài 2: Em hãy xác định bài toán và mô tả thuật toán cho bài toán sau: tính diện tích và chu vi của một thửa ruộng hình chữ nhật có chiều dài là b, chiều rộng là a
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
viết chương trình tính tổng x, y với x, y được nhập từ bàn phím.
viết chương trình tính trung bình 3 số x, y, z được nhập từ bàn phím
Viết trương trình tính tổng , tích của 3 số nguyên x y z nhập từ bàn phím
Câu 1: Tìm và sửa lỗi(nếu có) trong đoạn chương trình sau:
Var a, b: real
Begin
Clrscr;
Write(‘nhap a=’), read(a);
Write(‘nhap b=’); read(b);
If (a+b) := 120 then a =120-b;
Readln
End;
Câu 2: Cho biết kết quả của biến s sau đoạn chương trình sau:
a:=5;
s:=58;
If s>=70 then s:=s+2 else s:=s+a;