var n,k,s:int64;
begin
readln(n);s:=1;k:=0;
while s*3<n do
begin
s:=s*3;
inc(k);
end;
write(k);
end.
thêm bớt gì tùy bác
Bài 8. Lặp với số lần chưa biết trước
Các câu hỏi tương tự
Viết chương trình nhập dãy n số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và lớn nhất với n được nhập từ bàn phím
Viết chương trình tính tổng của n số tự nhiên bất kì được nhập từ bàn phím bằng lệnh while do với n là số nguyên được nhập từ bàn phím
viết chương trình tính tích n số tự nhiên ( với n được nhập từ bàn phím )
viết chương trình tìm số lớn nhất của n số nguyên x1, x2, x3,..., xn. các số x1, x2, x3,..., xn được nhập từ bàn phím
Viết chương trình sử dụng lệnh lặp while....do... để đếm các số tự nhiên chia hết cho 5 từ 1 -> n được nhập từ bàn phím
Viết chương trình tính tổng: S=1+1/2+1/3+...+1/n
Biết n là số tự nhiên được nhập từ bàn phím
Viết chương trình nhập vào một dãy gồm N số nguyên (N được nhập từ bàn phím). In ra màn hình tổng các phần tử chẳn, tổng các phần tử lẻ và giá trị lớn nhất của dãy số.
viết chương trình pascal nhập vào đầy đủ n số tự nhiên ( n được nhập từ bàn phím) sử dụng lệnh lặp chưa biết trước số lần lặp để tính tổng các số đó và thông báo kết quả ra màn hìnhIn ra màn hình trung bình của cấc số đã cho ở trên
Xem chi tiết
Viết chương trình nhập số N số thực từ bàn phím vào một mảng tình trung bình cộng các số vừa nhập
viết ct nhập vào 1 dãy gồm n số (với n được nhập từ bàn phím).tìm giá trị lớn nhất trong dãy số vừa nhập.