K
Khách

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.

19 tháng 10 2021

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

19 tháng 10 2021

cảm ơn bạn nha

 

18 tháng 10 2021

Program dung;

uses crt;

var s,a,b: real;

begin

clrscr;

write('Nhap a; b : '); readln(a,b);

s:=(a*b)/2;

writeln('Dien tich tam giac vuong la: ',s:1:2);

readln;

end.

3 tháng 11 2016

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

25 tháng 3 2017

program CVDT;

uses crt;

var a,b,c,P,S;

begin

Writeln('Nhap a va b');

Readln(a,b);

c:= a*a +b*b; S:= (a*b)/2;

Writeln('Dien tich tam giac vuong la ',S);

writeln('Chu vi tam giac vuong la ', SQRT(c);

Readln;

end.

uses crt;

var a,b:real;

begin

clrscr;

write('Nhap do dai canh thu nhat:'); readln(a);

write('Nhap do dai canh thu hai:'); readln(b);

writeln(sqrt(sqr(a)+sqr(b)):4:2);

readln;

end.

Bài 1: 

a: AB+AC=75-45=30(cm)

b: AB=(30+4):2=17(cm)

=>AC=13cm

\(S=17\cdot13=221\left(cm^2\right)\)

Bài 2: 

a: BC=67-47=20(cm)

b: \(S=\dfrac{15\cdot20}{2}=15\cdot10=150\left(cm^2\right)\)

15 tháng 1 2022

bài 2, bài 3, bài 4 đâu bạn? Sao có 1 bài vậy?!

21 tháng 11 2021

 

minhhautran15/04/2020

program window

Uses crt;

Var a,C,S: real;

Begin

clrscr;

Write(' Nhap gia tri cua a: '); readln(a);

C:=a*4;

S:=a*a;

Writeln(' Chu vi la:',C:6:2);

 

Writeln(' Dien tich la:',S:6:2);

Readln

End.

21 tháng 11 2021

#include<iostream>

using namespace std;

int main() {

int n;

cout << "Độ dài một cạnh hình vuông : "; cin >> n;

cout << "Chu vi hình vuông là : " << n * 4;

cout << "Diện tích hình vuông là : " << n * n;

return 0;

}

uses crt;

var a,b,c,p,s: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) and (a+b>c) and (a+c>b) and (b+c>a);

p:=(a+b+c)/2;

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

writeln(s:4:2);

readln;

end.