Giúp mik bài 4 với mik đang cần gấp ạ
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 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
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\)