var a,b,s:integer; c:word; begin write('nhap avà b '); read(a,b); s:=a*b*1/2; c:=(a+b)*2; writeln('dien tich la '; s ); write('chu vi la 'c); readln end

cảm ơn bạn nha

#include <bits/stdc++.h>

using namespace std;

double p,a,b,c,cv,s;

int main()

{

cin>>a>>b>>c;

cv=a+b+c;

p=cv/2;

s=sqrt(p*(p-a)*(p-b)*(p-c));

cout<<fixed<<setprecision(2)<<cv<<endl;

cout<<fixed<<setprecision(2)<<s;

return 0;

}

copy hay đấy nhỉ, muốn bị xóa câu trl à?

uses crt;

var a:int64;

begin

clrscr;

readln(a);

writeln('Chu vi la:',a*4);

writeln('Dien tich la: ',a*a);

readln;

end.

Câu 1: 

uses crt;

var a,s,p:real;

begin

clrscr;

repeat

write('Nhap do dai canh hinh vuong:'); readln(a);

until a>0;

p:=4*a;

s:=sqr(a);

writeln('Chu vi hinh vuong la: ',p:4:2);

writeln('Dien tich hinh vuong la: ',s);

readln;

end.

Câu 2: 

uses crt;

var a,b,t,s,h:real;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

t:=a+b;

h:=a-b;

s:=a*b;

writeln('Tong la: ',t:4:2);

writeln('Hieu la: ',h:4:2);

writeln('Tich la: ',s:4:2);

readln;

end.

Câu 3: 

uses crt;

var a,b,c:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Day la ba canh trong mot tam giac')

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

Giúp mình ý tưởng bài đỉnh đồi pascal

Cho mình ý tưởng bài này với!  

#include <bits/stdc++.h>

using namespace std;

int a=10;

int main()

{

cout<<a*4<<endl;

cout<<a*a;

return 0;

}

Program CT;

Uses Crt;

Begin

    Clrscr;

    Writeln('Chu vi hinh vuong =',10*4);

    Writeln('Dien tich hinh vuong =',10*10);

    Readln

End.

uses crt;

var a: integer;

begin clrscr;

Writeln('Nhap vao do dai canh cua tam giac deu: '); readln(a);

Writeln('Chu vi cua tam giac deu do la: ',a*3);

readln;

end.