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

Trần Lan Anh

Viết chương trình tìm n để A>=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
12 tháng 12 2020 lúc 19:51

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ình luận (0)

Các câu hỏi tương tự
Ha Ha
Xem chi tiết
Hồ Thị Thủy Tiên
Xem chi tiết
Hồ Thị Thủy Tiên
Xem chi tiết
nguyễn thị cẩm tiên
Xem chi tiết
Nguyễn Cát Tường
Xem chi tiết
Nguyễn Cát Tường
Xem chi tiết
Hary Jen Li
Xem chi tiết
Đức Nguyễn Trung
Xem chi tiết
trần duy hiếu
Xem chi tiết