Viết chương trình sử dụng câu lệnh While . . do, nhập vào số nguyên N.
a) Đếm các số tự nhiên trong khoảng từ 1.. N.
b) Đếm các số lẻ trong khoảng từ 1.. N.
c) *Đếm số nguyên tố có trong khoảng 1.. N
(không cần nhập phần khai báo)
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.
Những câu hỏi liên quan
NB
26 tháng 4 2023
def is_coprime(a, b):
"""Hàm ktra a và b có phải là nguyên tố cùng nhau"""
while b:
a, b = b, a % b
return a == 1
n = int(input("Nhập stn n: "))
count = 0
for i in range(1, n+1):
if is_coprime(i, n):
count += 1
print(f"Số lượng số nguyên tố cùng nhau với n là {count}.")
NA
Nguyễn An Ninh
VIP
25 tháng 4 2023
#include <bits/stdc++.h>
using namespace std;
int main()
{
long long n,dem=0,s=0;
cin >> n;
for (long long i=1;i<=n;i+=2){
dem++;
s+=i;
}
cout << "tu 0 den n co: " << dem << " so le" << endl;
cout << "tong cac so le do la: " << s;
return 0;
JW
25 tháng 4 2023
#include <bits/stdc++.h>
using namespace std;
int main()
{
long long n,dem=0,s=0;
cin >> n;
for (long long i=1;i<=n;i+=2){
dem++;
s+=i;
}
cout << "tu 0 den n co: " << dem << " so le" << endl;
cout << "tong cac so le do la: " << s;
return 0;
}
KV
25 tháng 4 2023
var i,n,d:integer;
s:longint;
begin
write('n = ');readln(n);
for i:=1 to n do
if i mod 2 <> 0 then
begin
d:=d+1;
s:=s+i;
end;
writeln('co ',d,' so le');
write('tong cac so le la ',s);
readln;
end.
21 tháng 3 2023
program DemSoChiaHetCho5;
var
n, i, count: integer;
begin
write('Nhap n: ');
readln(n);
i := 1;
count := 0;
while i <= n do
begin
if i mod 5 = 0 then
count := count + 1;
i := i + 1;
end;
writeln('Co ', count, ' so tu nhien chia het cho 5 trong khoang tu 1 den ', n);
end.
14 tháng 2 2022
uses crt;
var a:array[1..100]of integer;
i,n,tc,tl,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
tc:=0;
tl:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then tc:=tc+a[i]
else tl:=tl+a[i];
end;
writeln('Tong cac so chan la: ',tc);
writeln('Tong cac so le la: ',tl);
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
readln;
end.
14 tháng 2 2022
uses crt;
var a:array[1..1000]of integer;
i,n,dem1,dem2,t1,dem3,j,kt:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
dem1:=0;
dem2:=0;
t1:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then
begin
dem1:=dem1+1;
t1:=t1+a[i];
end;
else dem2:=dem2+1;
end;
dem3:=0;
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 dem3:=dem3+1;
end;
writeln(dem1, ' ',dem2);
writeln(t1);
writeln(dem3);
readln;
end.
6 tháng 11
Uses Crt;
Var A : array [1..1000] of longint;
n, m, d, t, i, S, k : longint;
Begin
//Phan A
Clrscr;
Writeln(' Phan A ');
Write(' Ban hay nhap 1 so n bat ky: ');
Readln(n);
Write(' Cac so chia het cho ba tu 1 den ',n,' la: ');
For i:=1 to n do
If (i mod 3) = 0 then Write(' ',i);
//Phan B
Writeln;
Writeln(' Phan B ');
Write(' Ban hay nhap 1 so m bat ky: ');
Readln(m);
For i:=1 to m do
Begin
Write(' Ban hay nhap hang tu thu ',i,': ');
Readln(A[i]);
S:= S+A[i];
End;
Write(' Tong cua day so tren la: ',S);
//Phan C
Writeln;
Writeln(' Phan C ');
Write(' Ban hay nhap 1 so d bat ky: ');
Readln(d);
Write(' Ban hay nhap so K: ');
Readln(k);
For i:=1 to n do
Begin
Write(' Ban hay nhap hang tu thu ',i,': ');
Readln(A[i]);
If ((A[i] div k)=1)then t:=t+1;
End;
Write(' Co tat ca ',t,' so giong ',k);
Readln;
End.
21 tháng 3 2023
program DemSoChiaHetCho5;
var
n, count, i: integer;
begin
write('Nhap vao so n: ');
readln(n);
count := 0;
i := 1;
while i <= n do
begin
if i mod 5 = 0 then // kiem tra so i co chia het cho 5 khong
count := count + 1;
i := i + 1;
end;
writeln('So luong so tu nhien chia het cho 5 tu 1 den ', n, ' la: ', count);
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;
}
H9
HT.Phong (9A5)
CTVHS
31 tháng 3 2023
1. Uses crt;
var n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do write(i:3);
readln;
end.
2. Uses crt;
var n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do if(i mod 2 = 0) then write(i:3);
readln;
end.
uses crt;
var n,i,dem,dem1,j,k,dem2,x:integer;
begin
clrscr;
write('nhap n='); readln(n);
dem:=0;
i:=1;
while i<=n do
begin
dem:=dem+1;
inc(i);
end;
writeln('So cac so tu nhien trong khoang tu 1 toi ',n,' la: ',dem);
dem1:=0;
j:=1;
while j<=n do
begin
if j mod 2=1 then inc(dem1);
inc(j);
end;
writeln('So cac so le trong khoang tu 1 toi ',n,' la: ',dem1);
if n>1 then
begin
k:=2;
dem2:=0;
repeat
x:=1;
repeat
inc(x);
until (k mod x=0) or (x=k);
if x=k then inc(dem2);
k:=k+1;
until k=n+1;
end;
writeln('So cac so nguyen to trong khoang tu 1 toi ',n,' la: ',dem2);
readln;
end.