gia su S la tich cua n so tu nhien dau tien . dung cau lenh lap while ... do viet chuong trinh xac dinh
n bang bao nhieu de S nho nhat lon hon 10000
giup mk di ma bon mk lm trong bai kiem tra do
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
8 tháng 3 2017
các bạn sai rồi lúc mình thử là 9314 là đúng đấy các bạn à
9314 đúng 100000000000000000000000000000000000000000000000000000000000000000000000000000% luôn ai thấy đúng thì
ket ban voi minh nhe
14 tháng 3 2022
uses crt;
var n,i:integer;
kt:boolean;
begin
clrscr;
repeat
readln(n);
until n<=100;
if (n<2) then writeln('khong la so nguyen to')
else begin
kt:=true;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=false;
if kt=true then write('la so nguyen to')
else write('khong la so nguyen to');
end;
readln;
end.
14 tháng 3 2022
uses crt;
var n,i:integer;
kt:boolean;
begin
clrscr;
repeat
readln(n);
until n<=100;
if (n<2) then writeln('khong la so nguyen to')
else begin
kt:=true;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=false;
if kt=true then write('la so nguyen to')
else write('khong la so nguyen to');
end;
readln;
end.
9 tháng 3 2017
giá trị lớn nhất của b là 9314
mk làm được 300/300 đó
hãy k và kb với mk nha
20 tháng 6 2017
a) C = { 0 ; 2 ; 4 ; 6 ; 8 }
b) L = { 11 ; 13 ; 15 ; 17 ; 19 }
c) A = { 18 ; 20 ; 22 }
d) B = { 25 ; 27 ; 29 ; 31 }
à tiện thể thì hàm inc(n) có nghĩa là tăng biến n lên 1 đơn vị
còn nếu là inc(n,x) thì tăng biến n lên x đơn vị nha
uses crt;
var n,s:longint;
begin
clrscr;
n:=1; s:=1;
while s<=10000 do
begin
inc(n);
s:=s*n;
end;
writeln(n);
readln;
end.