Những câu hỏi liên quan
NT
Xem chi tiết
NT
1 tháng 3 2022 lúc 14:47

Bài 1:

#include <bits/stdc++.h>

using namespace std;

long long n,i;

bool kt;

int main()

{

cin>>n;

if (n>1) 

{

kt=true;

for (i=2; i*i<=n; i++) 

if (n%i==0) kt=false;

if (kt==true) cout<<n<<" la so nguyen to";

else cout<<n<<" khong la so nguyen to";

}

else cout<<n<<" khong la so nguyen to";

return 0;

}

 

Bình luận (0)
TT
Xem chi tiết
TV
24 tháng 2 2022 lúc 13:19

vải :)

 

Bình luận (0)
NT
24 tháng 2 2022 lúc 13:26

11:

#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<<"YES";

else cout<<"NO";

return 0;

}

Bình luận (0)
VY
Xem chi tiết
ML
27 tháng 4 2022 lúc 20:20

Thuộc cấu trúc rẽ nhánh.

Sơ đồ khối:

Không có mô tả.

Bình luận (0)
DN
3 tháng 5 2024 lúc 20:20

bbbxb

 

 

 

 

 

 

 

Bình luận (0)
NY
Xem chi tiết
H24
4 tháng 10 2023 lúc 19:47

Bài 1:

Program HOC24;

uses crt;

var n: integer;

begin

clrscr;

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

if n mod 2 = 0 then write(n,' la so chan') else write(n,' la so le');

readln;

end.

Bài 2:

Program HOC24;

uses crt;

var n: integer;

begin

clrscr;

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

if n = sqr(trunc(sqrt(n))) then write(n,' la so chinh phuong') else (n,' khong phai la so chinh phuong');

readln;

end.

Bình luận (0)
LQ
29 tháng 9 2023 lúc 21:49
void solve(int n) {    if(n%2 == 0) {        cout << "CHAN'\n";    } else cout << "LE\n";    // kiem tra chinh phuong    int i = 2;    while(i*i <= n) {        if(i*i == n)  {            cout << "LA SO CHINH PHUONG\n";            return;        }    }    cout << "KHONG PHAI LA SO CHINH PHUONG'\n"; }
Bình luận (0)
NH
Xem chi tiết
MJ
31 tháng 10 2023 lúc 23:37

địt mẹ mày

 

Bình luận (0)
LD
Xem chi tiết
NT
25 tháng 2 2021 lúc 17:27

uses crt;

var n,i:integer;

begin

clrscr;

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

if n mod 2<>0 then 

begin

for i:=1 to n do 

  if i mod 2=1 then write(i:4);

end

else begin

for i:=1 to n do

  if i mod 2=0 then write(i:4);

end;

readln;

end.

Bình luận (0)
TS
Xem chi tiết
NT
Xem chi tiết
KL
23 tháng 2 2023 lúc 11:23

Bài 1

Var s,i:integer;

tb:real;

Begin

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

i:=1;

s:=0;

While i<=n do

Begin

s:=s+i;

i:=i+1;

End;

tb:=s/n;

Writeln('Tong la ',s);

Write('Trung binh la ',tb:10:2);

Readln;

End.

Bình luận (1)
KL
23 tháng 2 2023 lúc 11:27

Bài 2

Var i,n,souoc:integer;

Begin

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

i:=1;

While i <= n do

Begin

i:=i + 1;

If n mod i = 0 then souoc:=souoc + 1;

End;

If souoc = 1 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln;

End.

Bình luận (1)
PP
Xem chi tiết