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.

18 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

if ((a>0) and (c>0) and (b>0)) cout<<"Phai";

else cout<<"Khong phai";

return 0;

}

25 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b,c;

int main()

{

cin>>a>>b>>c;

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

else cout<<"NO";

return 0;

}

25 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b,c;

int main()

{

cin>>a>>b>>c;

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

else cout<<"NO";

return 0;

}

25 tháng 12 2021

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Phai')

else writeln('Khong phai');

readln;

end.

26 tháng 2 2021

Program Hoc24;

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

d,i,n,x: integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

write('Nhap so can tim: '); readln(x);

d:=0;

for i:=1 to n do if a[i]=x then d:=d+1;

if d>0 then write('Co so can tim trong day ban dau') else write('Khong co so can tim trong day ban dau');

readln

end.

uses crt;

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

n,i,x,kt:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

write('Nhap so can tim: '); readln(x);

kt:=0;

for i:=1 to n do 

  if a[i]=x then kt:=1;

if kt=0 then writeln(x,' khong co trong day')

else writeln(x,' co trong day');

readln;

end.

16 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b,c;

bool kt;

int main()

{

cin>>a>>b>>c;

kt=false;

if (a==(b+c)/2) kt=true;

if (b==(a+c)/2) kt=true;

if (c==(b+a)/2) kt=true;

if (kt==false) cout<<"Khong lap duoc";

else cout<<"Lap duoc";

return 0;

}

Bài 3: 

uses crt;

const fi='teptong.txt';

var a,b:integer;

f1:text;

begin

clrscr;

assign(f1,fi); rewrite(f1);

readln(a,b);

writeln(a+b);

writeln(f1,a+b);

close(f1);

readln;

end.

23 tháng 12 2016

Program ba_canh_cua_tam_giac;

uses crt;

var a,b,c: real;

BEGIN

Write('nhap do dai canh a'); Readln(a);

Write('nhap do dai canh b'); Readln(b);

Write('nhap do dai canh c'); Readln(c);

If (a<(b+c)) and (b<(c+a)) and (c<(b+a)) then write('do la do dai cua mot tam giac')

else write('do khong la do dai cua mot tam giac');

Readln;

END.

Thanks

23 tháng 12 2016

bạn ơi viết chương trình bằng chữ hay là ở trong pascal z bạn