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.

1 tháng 10 2019

Ý tưởng :

- Tính tổng chữ số của X

- Dừng lại khi tổng các chữ số của X có 1 chữ số.

1 tháng 10 2019

Bạn lm đc ko mình chịu r :v

19 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long n,i,dem,t;

int main()

{

cin>>n;

dem=0;

t=0;

for (i=1; i<=n;i++)

if (n%i==0) 

{

dem++;

t=t+i;

}

cout<<dem<<" "<<t;

return 0;

}

12 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,t,dem,j;

int main()

{

cin>>n;

x=n;

t=0;

while (n>0)

{

t=t+n%10;

n=n/10;

}

cout<<t;

dem=0;

for (i=2; i<=x; i++)

{

bool kt=true;

for (j=2; j*j<=i; j++)

if (i%j==0) kt=false;

if (kt==true) dem++;

}

cout<<dem;

return 0;

}

30 tháng 9 2019

Lời giải:

program hotrotinhoc;

var s: string;

x: longint;

begin

readln(x);

str(x,s);

write(length(s));

readln

end.

30 tháng 9 2019

Bạn ơi ko đc đâu

D
datcoder
CTVVIP
22 tháng 1

Program HOC24;

var x: integer;

begin

write('Nhap so: '); readln(x);

if x div 1000=1 then write('Mot nghin ');

if x div 1000=2 then write('Hai nghin ');

if x div 1000=3 then write('Ba nghin ');

if x div 1000=4 then write('Bon nghin ');

if x div 1000=5 then write('Nam nghin ');

if x div 1000=6 then write('Sau nghin ');

if x div 1000=7 then write('Bay nghin ');

if x div 1000=8 then write('Tam nghin ');

if x div 1000=9 then write('Chin nghin ');

if x div 1000<>0 then

if x div 100=0 then write('khong tram ');

if x div 100=1 then write('mot tram ');

if x div 100=2 then write('hai tram ');

if x div 100=3 then write('ba tram ');

if x div 100=4 then write('bon tram ');

if x div 100=5 then write('nam tram ');

if x div 100=6 then write('sau tram ');

if x div 100=7 then write('bay tram ');

if x div 100=8 then write('tam tram ');

if x div 100=9 then write('chin tram ');

if (x div 1000<>0) or (x div 100<>0) then

begin

if (x div 10<>0) then

begin

if x div 10=1 then write('muoi ');

if x div 10=2 then write('hai muoi ');

if x div 10=3 then write('ba muoi ');

if x div 10=4 then write('bon muoi ');

if x div 10=5 then write('nam muoi ');

if x div 10=6 then write('sau muoi ');

if x div 10=7 then write('bay muoi ');

if x div 10=8 then write('tam muoi ');

if x div 10=9 then write('chin muoi ');

if x mod 10=1 then write('mot');

if x mod 10=2 then write('hai');

if x mod 10=3 then write('ba');

if x mod 10=4 then write('bon');

if x mod 10=5 then write('lam');

if x mod 10=6 then write('sau');

if x mod 10=7 then write('bay');

if x mod 10=8 then write('tam');

if x mod 10=9 then write('chin');

end else

begin

if x mod 10=1 then write('le mot');

if x mod 10=2 then write('le hai');

if x mod 10=3 then write('le ba');

if x mod 10=4 then write('le tu');

if x mod 10=5 then write('le nam');

if x mod 10=6 then write('le sau');

if x mod 10=7 then write('le bay');

if x mod 10=8 then write('le tam');

if x mod 10=9 then write('le chin');

end;

readln

end.

8 tháng 10 2019

program hoidaptinhoc;
uses crt;
var K,N,X,Y,M,i : longint;
z : string;
BEGIN
clrscr;
writeln('Nhap so dong trong moi trang cua quyen sach: '); readln(K);
writeln('Nhap so thu tu cua dong: '); readln(N);
if (N mod K) = 0 then begin X:=N div K; Y:=K end;
if (N mod K) <> 0 then begin X:= (N div K) + 1; Y:=N mod K end;
M:=0;
for i:=1 to X do
begin
str(i,z);
M:=M+length(z);
end;
writeln('X= ',X,' Y= ',Y);
writeln('M= ',M);
readln;
END.

Viết chương trình nhập 1 mảng số nguyên dương gồm n phần tửa, in ra màn hình mảng vừa nhập (bỏ qua phần này!)b, nhập số nguyên dương k. tính tổng các số trong mảng LỚN hơn k.c, tìm kiếm các cặp 2 phần tử liên tiếp có tổng chia hết cho 10. in ra màn hình các cặp số và vị trí của nó!.d, tìm phần tử lớn nhất và số nguyên dương lớn nhất không xuất hiện trong mảng nhưng nhỏ hơn phần tử lớn nhất trong...
Đọc tiếp

Viết chương trình nhập 1 mảng số nguyên dương gồm n phần tử
a, in ra màn hình mảng vừa nhập (bỏ qua phần này!)
b, nhập số nguyên dương k. tính tổng các số trong mảng LỚN hơn k.
c, tìm kiếm các cặp 2 phần tử liên tiếp có tổng chia hết cho 10. in ra màn hình các cặp số và vị trí của nó!.
d, tìm phần tử lớn nhất và số nguyên dương lớn nhất không xuất hiện trong mảng nhưng nhỏ hơn phần tử lớn nhất trong mảng.
e, tìm số xuất hiện nhiều nhất(lặp lại lắm nhất) và số lần xuất hiện của số đó trong mảng.( Nếu tìm được nhiều số có số lần xuất hiện bằng nhau thì chỉ cần in ra số tìm được đầu tiên ).

f, đếm xem trong mảng có bao nhiêu số thân thiện :)) ( Số thân thiện là số có nhiều hơn 1 chữ số và nó chia hết cho TỔNG các chữ số của nó).


                ----------làm bằng procedure và function giúp mình kaka------------

<3 Cảm ơn các procoder :))

0

uses crt;

var n,t:integer;

{------------------kiem-tra-so-nguyen-to----------------------------}

function ktnt(x:integer):boolean;

var i:integer;

kt:boolean;

begin

kt:=true;

for i:=2 to trunc(sqrt(x)) do 

  if x mod i=0 then 

begin

kt:=false;

break;

end;

if kt=true then ktnt:=true

else ktnt:=false;

{----------------------chuong-trinh-chinh------------------------}

begin

clrscr;

t:=0;

repeat

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

if (n mod 2=0) then t:=t+n;

until ktnt(n)=false;

writeln(t);

readln;

end.