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.

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

readln(a,b,c);

if (a>0) and (b>0) and (c>0) and (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('Chu vi la: ',2*p:4:2);

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

end

else writeln('A B C khong phai la chieu dai ba canh cua mot tam giac');

readln;

end.

27 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

if (a>0 && b>0 && c>0 && a+b>c && a+c>b &&b+c>a) cout<<"phai";

else cout<<"ko phai";

return 0;

}

27 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

if (a>0 && b>0 && c>0 && a+b>c && a+c>b &&b+c>a) cout<<"phai";

else cout<<"ko phai";

return 0;

}

20 tháng 1 2022

Uses crt;
Var
      n,t:longint;
BEGIN
      Read(n);
      While n<>0 do
            Begin
                 t:=t+n mod 10;
                 n:=n div 10;
            End;
       Write(t);
Readln;
END.

 


 

20 tháng 1 2022

Refer:

Program baitap;

Uses crt;

Var n,x,T:integer;

Begin

Clrscr;

T:=0;

Write('n='); Readln(n);

While ( N <> 0 ) do

     Begin

     x := n mod 10;

     n := n div 10;

     T := T + x; 

     End;

Writeln('T=',T);

Readln

End.

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

uses crt;

var x,s,min:real;

i,n:integer;

begin

clrscr;

readln(n);

min:=-32000;

s:=1;

for i:=1 to n do 

begin

readln(x);

if min>x then min:=x;

s:=s*x;

end;

writeln('Nho nhat la: ',min:4:2);

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

readln;

end.