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.

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.

7 tháng 12 2021

mình chưa hiểu rõ đề lắm nên mình sẽ làm tạm như thế này còn nếu bạn muốn kiểu khác thì cứ bình luận để mình làm lại.

câu 1 :

#include<iostream>

using namespace std;

int main() {

long long a;

cout << "giá trị của a: "; cin >> a;

if (a % 2 != 0 && a % 5 == 0) {

cout << "a là một số lẻ chia hết cho 5"

} else {

cout << "a không phải là một số lẻ chia hết cho 5";

}

return 0;

}

câu 2 :

#include<iostream>

using namespace std;

int main() {
int a;

cout << "giá trị của a là: "; cin >> a;

if (a % 2 == 0 && a % 5 == 0) {

cout << "a là một số chẵn chia hết cho 5";

} else {
cout << "a không phải là một số chẵn chia hết cho 5";

}

return 0;

}

(Mình viết ở ngôn ngữ C++)

25 tháng 12 2021

uses crt;

var a,b,c:longint;

begin

clrscr;

readln(a,b,c);

writeln(a*b*c);

readln;

end.

Tham khảo:

uses crt;
var a:array[1..5] of integer;
    i,t:integer;
    tb:real;
begin
     for i:=1 to 5 do readln(a[i]);
     t:=0;
    for i:=1 to 5 do t:=t+a[i];
    tb:=t/5;
    write(Tb);
    readln;
end.

27 tháng 1 2022

Uses crt;

Var a,b,c,d,e,g:longint;

Begin

Clrscr;

writeln(so thu nhat la);readln(a);

writeln(so thu nhat la);readln(b);

writeln(so thu nhat la);readln(c);

writeln(so thu nhat la);readln(d);

writeln(so thu nhat la);readln(e);

g:=a+b+c+d+e;

Writeln('Tong scua 5 so la',g);

readln;

end.

9 tháng 11 2016

1.uses crt;

var n,gt:longint;

begin

clrscr;

repeat

write('nhap so n:');readln(n);

until n>0;

gt:=1;

while n>0 do

begin

gt:=gt*n;

n:=n-1;

end;

writeln('giai thua cua n la:',gt);

readln

end.

2. uses crt;

var a,b,c:real;

begin

clrscr;

write('nhap a=');readln(a);

write('nhap b=');readln(b);

write('nhap c=');readln(c);

if (a*a=b*b+c*c) or (b*=c*c+a*a) or (c*c=a*a+b*b) then writeln('khong phai la tam giac vuong');

readln

end.

 

23 tháng 11 2016

Cái chỗ chữ " repeat " cần thêm chữ " begin " nữa !

1:

uses crt;

const fi='ketqua.txt';

var f1:text;

st:string;

i,d:integer;

begin

clrscr;

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

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

 if st[i]=#32 then delete(st,i,1);

writeln(f1,st);

close(f1);

end.

2:

uses crt;

var a,b,c,d:integer;

{----------chuong-trinh-con-----------------------}

function min(x,y:integer):integer;

begin

if x<y then min:=x

else min:=y;

end;

{---------------chuong-trinh-chinh--------------------}

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

write('d='); readln(d);

writeln(min(a,min(b,min(c,d))));

readln;

end.

9 tháng 12 2021

var x, i : integer;

begin

     writeln('nhap so nguyen x : ')

     read(x);

     if ( x < 2) then writeln(' x khong phai so nguyen to');

     else if ( x > 2) then

        begin

              for i := 2 to ( x - 1) do

                  begin

                     if ( x mod i = 0) then writeln(' x khong la so nguyen to');

                  end;

        end;

    else

        writeln(' x la so nguyen to');

    readln;

end.

#include <bits/stdc++.h>
using namespace std;
long long n;
//chuongtrinhcon
bool ktnt(long long n)
{
    if (n<2) return(false);
    else
    for (int i=2; i*i<=n;i++)
        if (n%i==0) return (false);
    return(true);

}
//chuongtrinhchinh
int main()
{
    //freopen("KTSNT.INP","r",stdin);
    //freopen("KTSNT.OUT","w",stdout);
    cin>>n;
    if (ktnt(n)==true) cout<<"1";
    else cout<<"0";
    return 0;
}