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.

14 tháng 10 2021

c++

#include<bits/stdc++.h>using namespace std;int main(){float a,b,c;cin>>b>>c>>a;float p=(a+b+c)/2;//cai nay minh ap dung he thu herong cho no nhanh nhacout<<sqrt(p*(p-a)*(p-c)*(p-b));return 0;}pascaluses crt;var a,b,c,p:real;begin clrscr;readln(a,b,c);p:=(a+b+c)/2;write(sqrt(p*(p-a)*(p-b)*(p-c)):4:2);readln;end.
14 tháng 10 2021

21 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

double x,y,z;

int main()

{

cin>>x>>y>>z;

cout<<"Dien tich la:"<<fixed<<setprecision(2)<<(x+y)/2*z;

return 0;

}

22 tháng 10 2021

Program Munn;

Uses crt;

Var h,m,n,C:real;

Begin

Write ('Nhap canh 1');

Readln (h);

Write ('Nhap canh 2');

Readln (m);

Write ('Nhap canh 3');

Readln (n);

C:=h+m+n;

Writeln ('Chu vi hinh tam giac do la',C);

Readln;

End.

18 tháng 12 2021

mọi người giúp em giải bài này vs ạ

18 tháng 12 2021

#include <bits/stdc++.h>
using namespace std;
double a,b,c,s,p;
int main()
{
    //freopen("DTTAMGIAC.inp","r",stdin);
    //freopen("DTTAMGIAC.out","w",stdout);
    cin>>a>>b>>c;
    p=(a+b+c)/2;
    s=sqrt(p*(p-a)*(p-b)*(p-c));
cout<<fixed<<setprecision(5)<<p*2<<endl;    

cout<<fixed<<setprecision(5)<<s;
    return 0;
}

 

5 tháng 5 2023

Tổng n số tự nhiên đầu tiên:

Var i,n,s:integer;

Begin

Write('n = ');

for i:=1 to n do

s:=s+i;

Write('Tong la ',s);

Readln

End.

5 tháng 5 2023

Tích các số từ 5 đến 30

Var i,p:longint;

Begin

p:=1;

For i:=5 to 30 do

P:=p*i;

Write('Tich la ',p);

Readln

End.

20 tháng 12 2020

Câu 1:

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);

if (a+b>c) and (a+c>b) and (b+c>a) then 

   begin

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

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

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

end

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

readln;

end.

Câu 2: 

uses crt;

var a:array[1..100]of integer;

i,n,t,max,min:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Tong cac phan tu trong day la: ',t);

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

     if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('Gia tri lon nhat la: ',max);

writeln('Gia tri nho nhat la: ',min);

readln;

end. 

20 tháng 12 2020

nếu câu b bài 2 được tách riêng thành 1 câu riêng biệt...thì thay thế bắt đầu từ đâu ạ

 

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.