Những câu hỏi liên quan
Gà Công Nghệ
Xem chi tiết
Anh Phạm
28 tháng 8 2021 lúc 19:43

uses crt;

var n,i,o,d:integer;

function ktnt(n:integer): integer;

var i,d:integer;

begin

d:=0;

for i:=1 to sqrt(n) do

if (n mod i=0) then d:=d+1;

if d=2 then ktnt=0

else ktnt=1;

end;

begin

readln(n);

writeln(' so nguyen to be hon hoac bang n la'); {a}

for i:=1 to n do

if ktnt(i)=0 then writeln(i);

writeln('so nguyen to nho nhat khong be hon n');

o:=n;

while o>0 do

begin

if ktnt(o)=0 then

begin

write(o);

break;

end;

o:=o+1;

end;

writeln('cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n');

o:=0;

o:=1;

d:=0;

for i:=o+2 to n do

begin

if ktnt(i)=0 then

begin

d:=d+1;

write(i,' ');

if d<2 then continue;

end;

d:=0;

writeln;

end;

readln;

end.

Bình luận (1)
Lê Tâm Anh
Xem chi tiết
gấu béo
7 tháng 5 2023 lúc 19:20

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.

Bình luận (0)
Anh Thế
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 3 2022 lúc 22:16

#include <bits/stdc++.h>

using namespace std;

int i,n;

int main()

{

cin>>n;

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

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

return 0;

}

Bình luận (0)
Lưu Thùy Linh
Xem chi tiết
Nguyễn Hoàng Duy
29 tháng 3 2023 lúc 15:28

program TinhTongSoTuNhienLe;
var
  N, i, sum: integer;
begin
  write('Nhap so N: ');
  readln(N);

  sum := 0;
  for i := 1 to N do
  begin
    if i mod 2 = 1 then // Kiểm tra số lẻ
      sum := sum + i;   // Cộng dồn vào tổng
  end;

  writeln('Tong cac so tu nhien le nho hon hoac bang N la: ', sum);
  readln;
end.

Bình luận (0)
Nguyễn Như
Xem chi tiết
Phía sau một cô gái
23 tháng 3 2023 lúc 19:44

program Tim_So_Le_Chia_Het_Cho_3;

uses crt;

var

     n, i, count: integer;

begin

     clrscr;

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

     readln(n);

     writeln('Cac so le chia het cho 3 nho hon ', n, ' la: ');

     count := 0;

     for i := 1 to n do

     begin

          if (i mod 2 = 1) and (i mod 3 = 0) then

          begin

               writeln(i);

               count := count + 1;

          end;

     end;

     writeln('Co tat ca ', count, ' so le chia het cho 3');

     readln;

end.

Bình luận (0)
Phúc Trần
Xem chi tiết
Phúc Trần
12 tháng 4 2022 lúc 19:27

Mình cần gấp lắm ạ, ai giúp mình với T-T

 

Bình luận (0)
Nguyễn Lê Phước Thịnh
13 tháng 4 2022 lúc 18:32

2:

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) if (a[i]%2==0) cout<<a[i]<<" ";

return 0;

}

Bình luận (0)
huy thích sếch gái alime
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 3 2022 lúc 10:02

#include <bits/stdc++.h>

using namespace std;

long long n,i;

int main()

{

cin>>n;

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

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

cout<<endl;

for (i=1; i<=n; i++) cout<<"chung tay day lui covid"<<endl;

return 0;

}

Bình luận (0)
Tiến
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 3 2021 lúc 20:03

uses crt;

var i,n,dem:integer;

begin

clrscr;

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

dem:=0;

for i:=1 to n do 

  if i mod 2=0 then 

begin

inc(dem);

write(i:4);

if dem=15 then writeln;

end;

readln;

end.

Bình luận (2)
Bùi Anh Tuấn
17 tháng 3 2021 lúc 20:08

Bình luận (0)
Nguyễn minh Hoàng
Xem chi tiết