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;

string n;

int d,i,t,x;

int main()

{

freopen("tong.inp","r",stdin);

freopen("tong.out","w",stdout);

cin>>st;

d=st.length();

t=0;

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

{

x=int(st[i])-48;

t=t+x;

}

cout<<t;

return 0;

}

7 tháng 2 2023

 

14 tháng 1 2022

1 ≤ N ≤ 10**9

1 ≤ N ≤ 10**9

Độ phức tạp lớn nhất O(log(10 ** 9))

20 tháng 11 2023

def xoa_phan_tu_chia_het_cho_3(arr):
    return [x for x in arr if x % 3 != 0]

# Nhập số phần tử của dãy
n = int(input())

# Nhập dãy số nguyên
day_so = list(map(int, input().split()))

# Xóa các phần tử chia hết cho 3
ket_qua = xoa_phan_tu_chia_het_cho_3(day_so)

# In ra dãy sau khi xóa
print(*ket_qua)

22 tháng 12 2019

uses crt;
var n,s:integer;
{--------------------chuong-trinh-con-nhap---------------------------}
procedure nhap(var a:integer);
begin
write('n='); readln(a);
end;
{-------------------chuong-trinh-con-tinh-tong-cac-chu-so-trong-1-so---------------------}
procedure tong(var x:integer);
var i,d,t,b,c,e:integer;
st:string;
begin
str(x,st);
t:=0;
d:=length(st);
for i:=1 to d do
begin
val(st[i],b,c);
t:=t+b;
end;
if t<10 then writeln(t)
else tong(t);
end;
{---------------------chuong-trinh-chinh------------------------}
begin
clrscr;
nhap(n);
tong(n);
readln;
end.

21 tháng 10 2023

#include<bits/stdc++.h>
using namespace std;
#define ll long long

int main(){
    ios_base::sync_with_stdio(0);cin.tie(0);
    string s;cin>>s;
    ll t;
    while(1){
        t=0;
        for(ll i=0;i<s.size();i++)t+=s[i]-'0';
        s=to_string(t);
        if(s.size()==1)return cout<<s,0;
    }
}

26 tháng 4 2023

program TongSoChan;

var
  n, i, x, tong: integer;

begin
  write('Nhap so nguyen n: ');
  readln(n);
  
  tong := 0;
  
  for i := 1 to n do
  begin
    read(x);
    if x mod 2 = 0 then
      tong := tong + x;
  end;
  
  writeln('Tong cac so chan la: ', tong);
  readln; 
end.