Những câu hỏi liên quan
HOÀNG XUÂN NAM
Xem chi tiết
Phương Nam Đặng
5 tháng 11 2021 lúc 19:50

program ct1;

uses crt;

var n,i:integer;

begin

clrscr;

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

for i:=1 to n do

write(i,' ');

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
6 tháng 11 2021 lúc 0:23

#include <bits/stdc++.h>

using namespace std;

long long i,n,x,a[100];

int main()

{

cin>>n;

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

{

cin>>a[i];

}

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

cout<<a[i]<<" ";

return 0;

}

Bình luận (0)
baopham
Xem chi tiết
kazatama
28 tháng 2 2023 lúc 7:15

program tim_so_nguyen;

uses crt;

var i,N:integer;

begin

clrscr;

write('nhap so nguyen:');

readln(N);

if N <= 2 then write(N,' khong phai la so nguyen to')

else 

begin

i:=2;

while ( N mod i <> 0 ) do i:=i+1;

if i=N then write(N,' la so nguyen to')

else write(N,' khong phai la so nguyen to');

end;

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
28 tháng 2 2023 lúc 22:38

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,i,kt;

cin>>n;

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

}

}

Bình luận (0)
Bùi Lê Thanh Trúc
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 4 2022 lúc 8:21

uses crt;

var n,i,t,s:integer;

begin

clrscr;

repeat

readln(n);

until n<>0;

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

writeln(t);

s:=1;

for i:=1 to n do 

  if i mod 2=1 then s:=s*i;

writeln(s);

readln;

end.

Bình luận (0)
10. Nguyễn Thu Hải. 11H
Xem chi tiết
Duy Thanh Bùi
Xem chi tiết
Duy Thanh Bùi
Xem chi tiết
Duy Thanh Bùi
Xem chi tiết
Phía sau một cô gái
20 tháng 3 2023 lúc 19:57

program SoHoanHao;

uses crt;

var

     i, j, n, s: integer;

begin

     clrscr;

     write('Nhap n: ');

     readln(n);

     for i := 1 to n do

     begin

          s := 0;

          for j := 1 to i - 1 do

          begin

               if i mod j = 0 then

                    s := s + j;

               end;

               if s = i then

                    writeln(i);

     end;

     readln;

end.

Bình luận (0)
Thúy Hoa
Xem chi tiết
Bùi Anh Tuấn
30 tháng 3 2021 lúc 20:01

Bình luận (0)
Nguyễn Lê Phước Thịnh
30 tháng 3 2021 lúc 20:31

uses crt;

var i,n,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

 if i mod 2=1 then s:=s+i;

writeln(s);

readln;

end.

Bình luận (0)
Nguyễn Ngọc Diễm My
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 4 2022 lúc 22:52

 

 

 

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

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

if (i%3==0) t+=i;

cout<<t;

return 0;

}

Bình luận (0)