Câu hỏi của Trần Lan Anh

Question

Viết chương trình tìm n để An >=100. Với A là một số nguyên được nhập từ bàn phím.

Nguyễn Lê Phước Thịnh · Accepted Answer

uses crt;
var a,n:integer;
{--------------chuong-trinh-con-luy-thua----------------}
function lt(x,y:integer):longint;
var luythua:longint;
    i:integer;
begin
   luythua:=1;
   for i:=1 to y do
     luythua:=luythua*x;
   lt:=luythua;
end;
{--------------chuong-trinh-chinh-------------------}
begin
clrscr;
write('Nhap a='); readln(a);
n:=0;
repeat
   n:=n+1;
until lt(a,n)>=100;
writeln(n);
readln;
end.Câu trả lời: uses crt;
var a,n:integer;
{--------------chuong-trinh-con-luy-thua----------------}
function lt(x,y:integer):longint;
var luythua:longint;
    i:integer;
begin
   luythua:=1;
   for i:=1 to y do
     luythua:=luythua*x;
   lt:=luythua;
end;
{--------------chuong-trinh-chinh-------------------}
begin
clrscr;
write('Nhap a='); readln(a);
n:=0;
repeat
   n:=n+1;
until lt(a,n)>=100;
writeln(n);
readln;
end.

Bài 6: Phép toán, biểu thức, câu lệnh gán

Khoá học trên OLM (olm.vn)

Khoá học trên OLM (olm.vn)