Giúp em với ạ đây là trong pascal ạ
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.
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
bool kt=false;
if (n%400==0) kt=true;
if ((n%4==0) and (n%100!=0)) kt=true;
if (kt==true) cout<<"366";
else cout<<"365";
return 0;
}
uses crt;
var s:real;
a,n:integer;
begin
clrscr;
s:=1;
a:=1;
while s>=0.0001 do
begin
a:=a+1;
s:=s+1/a;
end;
writeln(s:4:2);
writeln(a);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
double a,s;
int main()
{
cin>>a;
s=1/2*a*a;
cout<<fixed<<setprecision(2)<<s;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long x,y;
int main()
{
cin>>x>>y;
cout<<x<<" "<<y;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
double a,s;
int main()
{
cin>>a;
s=1/2*a*a;
cout<<fixed<<setprecision(2)<<s;
return 0;
}
uses crt;
var xa,ya,xb,yb,xc,yc,p,s,ab,bc,ac:real;
begin
clrscr;
readln(xa,ya,xb,yb,xc,yc);
ab:=sqrt(sqr(xa-xb)+sqr(ya-yb));
ac:=sqrt(sqr(xa-xc)+sqr(ya-yc));
bc:=sqrt(sqr(xb-xc)+sqr(yb-yc));
p:=(ab+bc+ac)/2;
s:=sqrt(p*(p-ab)*(p-ac)*(p-bc));
writeln(s:4:2);
readln;
end.
Thế còn í b ạ