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.

6 tháng 8 2023

Mình sẽ tạm hiểu đề này là viết chương trình in ra các số nguyên tố lớn hơn hoặc bằng n nha

#include <bits/stdc++.h>

using namespace std;

int n,m,i;

//chuongtrinhcon

bool ktnt(int n)

if (n<2) return false; 

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

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

return true;

}

int main()

{

cin>>n;

cout<<"Cac so nguyen to nho hon bang n thoa man yeu cau la"<<endl;

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

if (ktnt(i)) cout<<i<<" ";

}

9 tháng 3 2023

#include <bits/stdc++.h>

using namespace std;

int n,kt,t;

int main()

{

cin>>n;

int t=0;

for (int i=1; i<=n; i++)

if (i%2==1) cout<<i<<" ";

cout<<endl;

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

{

kt=0;

for (int j=2; j*j<=i; j++)

if (i%j==0) kt=1;

if (kt==0) cout<<i<<" ";

}

return 0;

}

8 tháng 3 2021

uses crt;

var n,i:integer;

m:real;

begin

clrscr;

repeat

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

until (1<=n) and (n<=30000);

m:=0;

for i:=1 to n do 

  m:=m+sqrt(i);

writeln('m=',m:4:2);

readln;

end.

8 tháng 3 2021

đó là câu trả lời cho dòng 1 đúng không ạ

1 tháng 9 2021

program bai_1;
uses crt;
var i,n,j,d,dem:word;
begin
  clrscr;
  repeat
    write('nhap n:');readln(n);
    if (n<=0)or(n>=10000)then writeln('so ban nhap khong hop le, ban hay nhap lai:');
  until (n>0)and(n<10000);
  writeln('cac uoc so la so tu nhien cua ',n,' la:');
  for i:=1 to n do
  if n mod i=0 then write(i,'    ');
  writeln;
  dem:=0;
  for i:=2 to n do
  begin
    d:=0;
    for j:=2 to i div 2 do
    if i mod j=0 then inc(d);
    if (d=0)and(n mod i=0)then inc(dem);
  end;
  if dem>0 then writeln('cac uoc so la so nguyen to cua ',n,' la:');
  begin
    d:=0;
    for j:=2 to i div 2 do
    if i mod j=0 then inc(d);
    if (d=0)and(n mod i=0)then write(i,'    ');
  end;
  if dem=0 then write(0);
  readln;
end.

 

4 tháng 4 2022

#include <bits/stdc++.h>

using namespace std;

long long i,n,kt,j;

int main()

{

cin>>n;

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

{

kt=0;

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

if (i%j==0) kt=1;

if (kt==0) cout<<i<<" ";

}

return 0;

}

16 tháng 4 2023

program TimBoi4ChuSo;
var
  n, i: integer;
begin
  repeat
    writeln('Nhap vao so nguyen n (2<n<100): ');
    readln(n);
  until (n > 2) and (n < 100);
  
  writeln('Cac boi cua ', n, ' co 4 chu so la: ');
  for i := 1000 to 9999 do
  begin
    if i mod n = 0 then
      writeln(i);
  end;
end.

 

7 tháng 2 2023

program ct;
uses crt;
var dem,n,s,max,t:longint;
begin
        writeln('nhap n:');readln(n);
        while n>0 do begin
                        s:=n mod 10;
                        t:=t+s;
                        if max<s then max:=s;
                        dem:=dem+1;
                        n:=n div 10;
                     end;
        writeln('tong la',t,',','co',' ',dem,' ','chu so',',','chu so lon nhat la:',max);
        readln
end.

bạn xem lại nha mik làm đây nhưng k bt đk

7 tháng 5 2023

program Le_Nho_Hon_Hoac_Bang_n;

uses crt;

var

       n, i: integer;

begin

       clrscr;

       write('Nhap vao mot so nguyen duong n: ');

       readln(n);

       while n <= 0 do

       begin

              writeln('So ban nhap khong hop le. Xin vui long nhap lai: ');

              readln(n);

       end;

       clrscr;

       writeln('Cac so le nho hon hoac bang ', n, ' la:');

       i := 1;

       while i <= n do

       begin

              if i mod 2 <> 0 then

                     writeln(i);

              i := i + 1;

       end;

       readln;

end.