uses crt;

var st:string;

d,i,t,x,y,a,b:integer;

begin

clrscr;

readln(st);

d:=length(st);

for i:=1 to d do write(st[i]:4);

writeln;

t:=0;

for i:=1 to d do

begin

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

t:=t+x;

end;

writeln(t);

val(st[d],a,b);

if (a mod 2=0) then write(1)

else write(-1);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t,dem,t1;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t=0;

for (i=1; i<=n; i++) if (a[i]%2==0) t+=a[i];

cout<<t<<endl;

t1=0;

dem1=0;

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

if (a[i]<0)

{

cout<<a[i]<<" ";

t1+=a[i];

dem1++;

}

cout<<endl;

cout<<fixed<<setprecision(1)<<(t1*1.0)/(dem1*1.0);

return 0;

}

#include <bits/stdc++.h>
using namespace std;
long long a,b;
//chuongtrinhcon
long long gcd(long long a,long long b)
{
    if (b==0) return(a);
    return gcd(b,a%b);
}
//chuongtrinhchinh
int main()
{
    cin>>a>>b;

cout<<max(a,b)<<endl;

cout<<gcd(a,b)<<endl;
    if ((a>0 && b>0) or (a<0 && b<0)) cout<<a/gcd(a,b)<<" "<<b/gcd(a,b);
    else cout<<"-"<<-a/gcd(-a,b)<<" "<<b/gcd(-a,b);
    return 0;
}

1 poverty

2 decision

3 worried

4 awake

5 singers

7 northen

8 disappeared

9 difference

10 unimportant

11 windy

12 portable

13 sensibly

14 painting

15 mainly

SOS😥👉🏳👈

ok nha

A = 1/2 + 1/6 + 1/16 + ... + 1/4084441   có : 2021 - 1 + 1 = 2021 số

1 = 1/2021 + 1/2021 + ... + 1/2021   có 2021 số 

vậy 1 > A

b: Xét ΔABE vuông tại A có AH là đường cao ứng với cạnh huyền BE

nên \(BH\cdot BE=AB^2\left(1\right)\)

Xét ΔABC vuông tại B có BH là đường cao ứng với cạnh huyền AC

nên \(AH\cdot AC=AB^2\left(2\right)\)

Từ (1) và (2) suy ra \(BH\cdot BE=AH\cdot AC\)

ảnh lỗi