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.

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

int ln=0;

while (n>0) 

{

int x=n%10;

ln=max(ln,x);

n=n/10;

}

cout<<x;

}

10 tháng 1 2021

uses crt;var n: longint;    chrn: string;    valn,sum,max,i,preperror: byte;begin    write('Nhap so can kiem tra: ');    readln(n);    str(n,chrn);    for i:=1 to length(chrn) do    begin        val(chrn[i],valn,preperror);        sum:=sum+valn;        if max<valn then max:=valn;        valn:=0    end;    writeln('Ket qua: ');    writeln(length(chrn));    writeln(sum);    write(max);    readln;end.uses crt;var n: longint;    chrn: string;    valn,sum,max,i,preperror: byte;begin    write('Nhap so can kiem tra: ');    readln(n);    str(n,chrn);    for i:=1 to length(chrn) do    begin        val(chrn[i],valn,preperror);        sum:=sum+valn;        if max<valn then max:=valn;        valn:=0    end;    writeln('Ket qua: ');    writeln(length(chrn));    writeln(sum);    write(max);    readln;end.

10 tháng 1 2021

Program HOC24;

var N:longint;

max,tg,t,d: integer;

Begin

write('Nhap N : '); readln(N);

max:=0;

while n<>0 do

begin

tg:=n mod 10;

d:=d+1;

t:=t+tg;

if tg>max then max:=tg;

n:=n div 10;

end;

writeln('So nguyen N co ',d,' chu so');

writeln('Tong cac chu so cua N la : ',t);

write('Chu so lon nhat cua N la :',max);

readln

end.

12 tháng 10 2023

Chia n cho 8 thì dư 7 nên n sẽ chia hết cho 8 + 7 là 15 

Chia n cho 31 thì dư 28 nên n sẽ chia hết cho 31 + 28 = 59 

⇒ n ∈ BC(15; 59) mà do n là số tự nhiên lớn nhất có 3 chữ số 

⇒ n = 885 (885 là BC của 25 và 59) 

1 tháng 10 2018

a, 1000000

b, 999999999

c, 6012345

d, 198765432

15 tháng 1 2019

28 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

string n;

int main()

{

cin>>n;

d=n.length();

ln=48;

nn=57;

for (i=0; i<=d-1; i++)

{

ln=max(ln,int(n[i]));

nn=min(nn,int(n[i]));

}

cout<<char(ln)<<" "<<char(nn);

return 0;

}

23 tháng 2 2018

Tôi đoán mò ra 132 nhưng làm thế nao ra đc nó giúp tớ nhé cam on cac ban

9 tháng 4 2018

111 nhé

23 tháng 3 2022

var n,T,m,i : byte;

       s:string;

       code:integer;

 begin 

 write('n = '); readln(n); str(n,S);

 write(n, ' có ',length(s),' chữ số');  {Hết câu a}

for i:=1 to length(S) do begin

                                     val(S[i],m,code);

                                      if m mod 2 = 0 then T:=T+m;

                                      end;

write('Tổng các chữ số chẵn của ',n,' bằng : S = ',S); {Hết câu b}

readln

end.

 

23 tháng 3 2022

Ở dòng 'Hết câu b' sửa S thành T giúp mình

16 tháng 8 2021

Program HOC24;

var n,i,j: integer;

s: string;

k: longint;

begin

write('Nhap N: '); readln(n);

i:=0; j:=1; k:=1;

while i<n do

begin

k:=k*j;

j:=j+1;

str(k,s);

i:=length(s);

end;

write(k);

readln

end.

18 tháng 12 2022

thầy làm thế này chạy dữ liệu 10 mũ 3 10 mũ 4 chạy sao đc ạ