Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Nguyễn Gia Bảo
Xem chi tiết
Miner Đức
Xem chi tiết
Nguyễn Lê Phước Thịnh
14 tháng 3 2022 lúc 8:23

#include <bits/stdc++.h>

using namespace std;

long long n,i,x;

//chuongtrinhcon

bool ktnt(long long x)

{

if (x<2) return false;

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

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

return true;

}

//chuongtrinhchinh

int main()

{

freopen("dl.dat","r",stdin);

freopen("kq.dat","w",stdout);

cin>>n;

dem=0;

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

{

cin>>x;

if (ktnt(x)) dem++;

}

cout<<dem;

return 0;

}

Ngọc Hồng
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 3 2022 lúc 14:48

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

freopen("sn.inp","r",stdin);

freopen("cn.out","w",stdout);

cin>>a>>b;

cout<<a*b;

return 0;

}

37 Nguyễn Sơn Thủy 11A5
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 4 2022 lúc 17:01

uses crt;

const fi='songuyen.inp'

var f1:text;

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

i,n,kt,j:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

n:=0;

while not eof(f1) do 

begin

n:=n+1;

readln(f1,a[n]);

end;

for i:=1 to n do 

  if a[i]>1 then 

begin

kt:=0;

for j:=2 to trunc(sqrt(a[i])) do 

  if a[i] mod j=0 then kt:=1;

if kt=0 then write(a[i]:4);

end;

close(f1);

readln;

end.

Phạm Tiến Vượng
Xem chi tiết
Nguyễn Văn Thường
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2022 lúc 18:51

const fi='input.txt'

fo='soan.txt'

var f1,f2:text;

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

i,n:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eof(f1) do 

  begin

n:=n+1;

readln(f1,a[n]);

end;

for i:=1 to n do 

  if a[i]<0 then writeln(f2,a[i]:4);

close(f1);

close(f2);

end.

Đặng Công
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 5 2021 lúc 20:31

uses crt;

const fi='dl.txt'

fo='soam.txt'

var f1,f2:text;

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

i,n:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eoln(f1) do 

  begin

n:=n+1;

read(f1,a[n]);

end;

for i:=1 to n do 

begin

  if a[i]>0 then writeln('Can bac hai cua ',a[i],' la: ',sqrt(a[i]):4:2)

else if a[i]<0 then write(f2,a[i]:4);

end;

close(f1);

close(f2);

readln;

end.

Đặng Công
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 5 2021 lúc 20:32

uses crt;

const fi='dl.txt'

fo='soam.txt'

var f1,f2:text;

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

i,n:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eoln(f1) do 

  begin

n:=n+1;

read(f1,a[n]);

end;

for i:=1 to n do 

begin

  if a[i]>0 then writeln('Can bac hai cua ',a[i],' la: ',sqrt(a[i]):4:2)

else if a[i]<0 then write(f2,a[i]:4);

end;

close(f1);

close(f2);

readln;

end.

Haibanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 10:05

const fi='sn.inp'

fo='sn.out'

var f1,f2:text;

a,b:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a,b);

writeln(f2,a-b);

close(f1);

close(f2);

end.