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.
program tamgiac;
uses crt;
var a,b,c: integer;
BEGIN
clrscr;
reapeat begin write ('nhap a = '); readln (a); end;
until a>0;
reapeat begin write ('nhap b = '); readln (b); end;
until b>0;
reapeat begin write ('nhap c = '); readln (c); end;
until c>0;
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b)
then write ('3 canh ay la 3 canh cua tam giac vuong')
else ('3 canh ay khong la 3 canh cua tam giac vuong');
READLN
END.
chưa kiểm tra bất đẳng thức đã kiểm tra tam giác vuông là sai nha bạn
Lời giải :
program hotrotinhoc ;
var a,b,c : integer ;
begin
write('nhap gia tri a'); readln(a);
write('nhap gia tri b'); readln(b);
write('nhap gia tri c'); readln(c);
If (a+b>c) or (a+c>b) or (b+c>a) then write('Chung la ba canh cua tam giac') else write('Chung khong phai la ba canh cua tam giac');
readln
end.
2:
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,i,kt=0;
cin>>n;
for (int i=2; i*i<=n; i++)
if (n%i==0) kt=1;
if (kt==0) cout<<"YES";
else cout<<"NO";
}
b:
#include <bits/stdc++.h>
using namespace std;
long long a,b,t;
int main()
{
cin>>a>>b;
t=a+b;
cout<<t;
return 0;
}
uses crt;
var a:integer;
begin
clrscr;
write('Nhap a='); readln(a);
if a<0 then writeln(a,' la so am')
else if a>0 then writeln(a,' la so duong')
else writeln(a,' khong la so am cung khong la so duong');
readln;
end.
var A: integer;
begin
write('Nhap vao mot so A='); readln(A);
if A>0 then write('So A la so nguyen duong');
if A<0 then write('So A la so nguyen am');
If A=0 then write('So A khong la so nguyen am va khong la so nguyen duong');
readln;
end.