
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.



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;
}

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!

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.

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.
A, 1000111
b, 101101