Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Long ca ca
Xem chi tiết
Phùng Công Anh
29 tháng 6 2023 lúc 22:41

program tim_nguon_nho_nhat;

const
  MAX_NUMBER = 10000;

var
  M, nguon_nho_nhat: Integer;

function TinhTongChuSo(num: Integer): Integer;
var
  sumOfDigits: Integer;
begin
  sumOfDigits := 0;
  while num > 0 do
  begin
    sumOfDigits := sumOfDigits + (num mod 10);
    num := num div 10;
  end;
  TinhTongChuSo := sumOfDigits;
end;

function TimNguonNhoNhat(M: Integer): Integer;
var
  N, M_temp, M_digits, nguon_nho_nhat: Integer;
begin
  M_temp := M;
  nguon_nho_nhat := MAX_NUMBER;
  for N := 1 to M_temp do
  begin
    M_digits := TinhTongChuSo(N) + N;
    if M_digits = M_temp then
    begin
      if N < nguon_nho_nhat then
        nguon_nho_nhat := N;
    end;
  end;
  if nguon_nho_nhat = MAX_NUMBER then
    TimNguonNhoNhat := 0
  else
    TimNguonNhoNhat := nguon_nho_nhat;
end;

begin
  Readln(M);
  nguon_nho_nhat := TimNguonNhoNhat(M);
  if nguon_nho_nhat = 0 then
    Writeln('0')
  else
    Writeln('Nguon nho nhat cua ', M, ' la ', nguon_nho_nhat);
end.

 

Vũ Minh Anh
Xem chi tiết
Kiệt Nguyễn
26 tháng 1 2021 lúc 18:54

\(^∗\)Xét \(n=2011\)thì \(S\left(2011\right)=2011^2-2011.2011+2010=2010\)(vô lí)

\(^∗\)Xét \(n>2011\)thì \(n-2011>0\)do đó \(S\left(n\right)=n\left(n-2011\right)+2010>n\left(n-2011\right)>n\)(vô lí do \(S\left(n\right)\le n\))

* Xét \(1\le n\le2010\)thì \(\left(n-1\right)\left(n-2010\right)\le0\Leftrightarrow n^2-2011n+2010\le0\)hay \(S\left(n\right)\le0\)(vô lí do \(S\left(n\right)>0\))

Vậy không tồn tại số nguyên dương n thỏa mãn đề bài

Khách vãng lai đã xóa
Hiền Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 4 2021 lúc 19:46

a)

uses crt;

var n,i,t,j:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

t:=0;

for j:=1 to i-1 do 

 if i mod j=0 then t:=t+j;

if t=i then write(i:4);

end;

readln;

end.

Nguyễn Lê Phước Thịnh
26 tháng 4 2021 lúc 19:47

b)

uses crt;

var gt:real;

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

gt:=1;

for i:=1 to n do 

 gt:=gt*i;

writeln(gt:0:0);

readln;

end.

minh
Xem chi tiết
Trần Thị Hải
Xem chi tiết
Nguyễn Thị Quỳnh Hương
9 tháng 3 2016 lúc 8:24

Nếu chị hỏi từng câu người ta sẽ muốn trả lời hơn đấy ạ! Về việc trả lời thì em lớp 5! @.@

Huynh Le phu
Xem chi tiết
Ngo Khanh Vy
6 tháng 3 2016 lúc 12:12

sao lai lay trong vioympic ha

Trâm
Xem chi tiết
Nguyễn Văn A
15 tháng 3 2023 lúc 22:40

- Vì N là số tự nhiên có hai chữ số nên đặt \(N=\overline{ab}\) \(\left(0< a\le9;0\le b\le9;a,b\in N\right)\)

Ta có \(S\left(N\right)=S\left(\overline{ab}\right)=ab\) ; \(P\left(N\right)=P\left(\overline{ab}\right)=a+b\)

Vì \(N=S\left(N\right)+P\left(N\right)\) nên \(\overline{ab}=ab+a+b\)

\(\Rightarrow10a+b=ab+a+b\)

\(\Rightarrow9a=ab\Rightarrow b=9\) (vì a khác 0)

Vậy chữ số hàng đơn vị của N là 9 ---> chọn E

Trần Thị Hải
Xem chi tiết
Dương Helena
7 tháng 3 2016 lúc 22:26

vòng mấy đây bạn

Trần Thị Hải
7 tháng 3 2016 lúc 22:29

vòng 15 bạn nhá

Shido Yuuki
7 tháng 3 2016 lúc 22:39

dễ quá p ơi

Cao Phạm Hà Anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 8 2023 lúc 12:12

const fi='docao13.inp'

fo='docao13.out'

var f1,f2:text;

a:array[1..100]of integer;

i,n:integer;

//chuongtrinhcon

function kq(x:integer):integer;

var t,k:integer;

begin

t:=0;

while (x>0) do

begin

k:=x mod 10;

t:=t+k;

x:=x div 10;

end;

kq:=t;

end;

//chuongtrinhchinh

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

read(f1,a[i]);

for i:=1 to n do

write(f2,kq(a[i]):4);

close(f1);

close(f2);

end.