Viết CT tìm n biết n là số lớn nhất sao cho s= 1/n nhỏ nhất và s>0,001
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
4 tháng 5 2021
a)
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
4 tháng 5 2021
b)
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
LN
2
17 tháng 3 2021
uses crt;
var n:integer;
s:real;
begin
clrscr;
s:=1/1000;
n:=1 div s;
while s<=1/1000 do
begin
n:=n-1;
s:=1/n;
end;
writeln(n);
readln;
end.
8 tháng 1 2015
dễ thấy để S(n) và S(n+1) đều chia hết cho 1 số thì đuôi của n kết thúc bằng các số 9.
giả sử n có x số 9 cuối(ta tìm x nhỏ nhất)
khi đó n có dạng a 99...9 (x số 9)
=> n+1=b00...0 ( x+1 số 0) với b=a+1
do S(n) ≡ S(n+1) (mod 7) => a+9x ≡ b (mod 7) => 9x ≡ 1 (mod 7)
=> x=4
=> n=a9999
mà S(n) chia hết cho 7 => a=6 => n=69999 là nhỏ nhất thỏa mãn :D
24 tháng 3 2023
Uses crt;
var
begin clrscr;
k:=1;
s:=0;
while (s<700) do begin
k:=k+1
s:=s+k;
end;
writeln(s,' ',k);
readln;
end;
LD
29 tháng 4 2019
uses crt;
var S,n,i; integer;
begin
clrscr;
repeat
writeln('Nhap n = '); read(n);
until n<1000000000;
i:=n-1;
While i<n do
begin
S := 0; While ( i <> 0 ) do
Begin k := i mod 10;
i := i div 10;
S := S + k;
end;
end;
if S = 10 then write(i);
readln
end.
5 tháng 5 2020
uses crt;
var s,n:longint;
begin
clrscr;
s:=0;
n:=1;
while s<=10000 do
begin
s:=s+n;
inc(n);
end;
writeln(s);
writeln('So n nho nhat sao cho tong S>10000 la: ',n);
readln;
end.
program baitap;
uses crt;
var s: real;
n: integer;
const sai_so = 0.001;
BEGIN
clrscr;
s:= sai_so;
n:= 1 div s;
while s<=sai_so do
begin
n:= n-1;
s:= 1/n
end;
writeln('So n lon nhat de s = 1/n > ', sai_so, ' la: ',n);
readln;
END.