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.

18 giờ trước (10:51)

a)10000111

b)111101

18 giờ trước (10:54)

a: 10000111

b: 111101

uses crt;

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

i,n,t,t1,t2:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

t1:=0;

t2:=0;

for i:=1 to n do 

begin

if a[i]>0 then t1:=t1+a[i];

if a[i]<0 then t2:=t2+a[i];

end;

writeln('Tong cac phan tu la: ',t);

writeln('Tong cac so duong la: ',t1);

writeln('Tong cac so am la: ',t2);

writeln('Trung binh cong cua day la: ',t/n:4:2);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long n,i,t,j;

bool kt;

int main()

{

cin>>n;

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

{

kt=true;

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

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

if (kt==true) cout<<i<<" ";

}

cout<<endl;

t=0;

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

if (n%i==0) t+=i;

cout<<t;

return 0;

}

12 tháng 10 2021

Mình dùng C++ nên div = /; mod = % nha bn!

#include <bits/stdc++.h>
using namespace std;
int main() {
int a, S;
cin >> a;
S=0;
while(a>0)
{
    S+=a%10, a=a/10;
}
cout << S << endl;
return 0;
}

Chúc bn học tốt!

13 tháng 10 2021

em cảm ơn ạ

 

uses crt;

var n,i,t,x,y,d:integer;

st:string;

begin

clrscr;

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

str(n,st);

d:=length(st);

t:=0;

for i:=1 to d do 

  begin

val(st[i],x,y);

t:=t+x;

end;

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

readln;

end. 

24 tháng 1 2021

mang tính chất test danh hiệu nhưng vẫn đúng nhá

3 tháng 11 2023

uses crt;

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

i,n,dem1,dem2,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

dem1:=0;

dem2:=0;

t:=0;

for i:=1 to n do 

begin

 if a[i] mod 2=0 then inc(dem1)

else inc(dem2);

if 10 mod a[i]=0 then t:=t+a[i];

end;

writeln(dem1);

writeln(dem2);

writeln(t);

readln;

end.