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.

19 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i;

bool kt;

int main()

{

cin>>n;

kt=true;

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

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

if ((kt==true) and (n>1)) cout<<"YES";

else cout<<"NO";

return 0;

}

Bài 2:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

if (i mod 3=0) and (i mod 5=0) then t:=t+i;

writeln(t);

readln;

end.

12 tháng 3 2022

tham khảo

Program Hotboy;

 

Uses crt;

 

Var A:array[1..100] of integer;

 

I,n : byte;

 

S:real;

 

Begin

 

Clrscr ;

 

S:=1;

 

Write('nhao so phan tu trong day'); readln(n);

 

For i:=1 to n do 

 

Begin

 

Write('A[',i,']'); readln(A[i]); 

 

End;

 

For i:=1 to n do

If A[i] mod 5 =0 then 

S:=S* A[i] ; 

 

Writeln('Tong cac phan tu chia het cho 5 trong mang la',S); 

 

Readln

 

End.

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

t:=1;

for i:=1 to n do 

  if a[i] mod 2<>0 then t:=t*a[i];

writeln(t);

readln;

end.

19 tháng 8 2023

Tham khảo:

import math

def giai_phuong_trinh_bac_2(a, b, c):

delta = b**2 - 4*a*c

 if delta < 0:

  return None

 elif delta == 0:

  nghiem = -b / (2*a)

  return (nghiem)

 else:

  sqrt_delta = math.sqrt(delta)

  nghiem1 = (-b + sqrt_delta) / (2*a)

  nghiem2 = (-b - sqrt_delta) / (2*a)

  return (nghiem1, nghiem2)

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

int t=0;

while (n>0)

{

int x=n%10;

t=t+x;

n=n/10;

}

cout<<t;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

int p;

int main()

{

cin>>p;

cout<<p/60<<":"<<p%60;

}

29 tháng 12 2020

uses crt;

var i,n,s: integer;

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

begin

writeln('Nhap n: '); read(n);

for i:=1 to n do 

begin

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

end;

writeln('Cac so le: ')

s:=0;

for i:=1 to n do

if a[i] mod 2 <> 0 then 

begin

s:=s+a[i];

write(a[i],' ');

end;

writeln('- Tong so le: ',s);

for i:=1 to trunc(sqrt(s)) do if s mod i = 0 then d:=d+1;

if d > 1 then writeln('Tong do khong la so nguyen to') else writeln('Tong do la so nguyen to');

readln

end.