Mọi người giúp mik làm bài này với ạ. Chiều nay mik phải nộp rồi. Mik cảm ơn trước.
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;
}
My taste in art is not the same as my sister's
I think romantic films aren't as interesting as action films
I don't speak Japanese and my new friend doesn't, either
Nester goes climbing less than before
He's had a cold for 2 days because he didn't wear enough clothes
I will spend an hour gettign this task done
My father prefers tea to coffee
Eat less or you will be obese