đếm và in ra màn hình các số ước của n (0<n<2*10^9)
Những câu hỏi liên quan
Viết chương trình nhập vào số nguyên. Xuất ra màn hình và đếm các ước số của n.
Vd: nhập n=9
Các ước số của 9 là 1,3,9
9 có 3 ước
#include <bits/stdc++.h>
using namespace std;
long long i,n,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
if (n%i==0)
{
cout<<i<<" ";
dem++;
}
cout<<endl;
cout<<dem;
return 0;
}
Đúng 0
Bình luận (0)
viết đoạn chương trình in các ước của số nguyên dương n ra màn hình với n được nhập từ bàn phím. (gợi ý: cho vòng lặp for có biến đếm i chạy từ 1-n, kiểm tra xem biến i có là ước ước số của n khi n chia hết cho i) *
for i:=1 to n do
if n mod i=0 then write(i:4);
Đúng 2
Bình luận (0)
Chương trình đầy đủ:
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
Đúng 2
Bình luận (0)
Câu 1: Viết chương trình nhập vào số tự nhiên N (0<N<10000). In ra màn hình các yêu cầu sau:
Các ước số là số tự nhiên của N.
Các ước số là số nguyên tố của N, nếu không có ước số nguyên tố xuất ra số 0.
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.
Đúng 0
Bình luận (0)
Nhập vào N phần tử đếm các số âm tính TBC và in ra màn hình
uses crt;
var i,n,n,d: integer;
t: real;
A: array[1..32000] of integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i] <0 then
begin
d:=d+1;
t:=t+a[i];
end;
writeln('Tong la:',t/n:2:4);
write('Co tat ca so so am la:',d);
readln;
end.
Đúng 1
Bình luận (0)
Mik đag cần gấp chiều nay nhờ mn giải giúp mik 😆😆😆
Đúng 0
Bình luận (0)
uses crt;
var i,n,n,d: integer;
t: real;
A: array[1..32000] of integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i] <0 then
begin
d:=d+1;
t:=t+a[i];
end;
writeln('Tong la:',t/n:2:4);
write('Co tat ca so so am la:',d);
readln;
end.
uses crt;
var i,n,n,d: integer;
t: real;
A: array[1..32000] of integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i] <0 then
begin
d:=d+1;
t:=t+a[i];
end;
writeln('Tong la:',t/n:2:4);
write('Co tat ca so so am la:',d);
readln;
end.
Đúng 0
Bình luận (0)
nhập dãy số gồm n số thức (n=
Xem chi tiết
Lập trình nhập 1 mảng gồm n ký tự từ bàn phím
1.In mảng ra màn hình,các phần tử cách nhau 5 vị trí
2.Tìm và in ra các chữ viết hoa từ A->Z trong mảng
3.Đếm và in các chữ số thập phân(các chữ số 0->9) trong mảng ra
Nhập vào số nguyên dương
a) In ra màn hình các số chẵn và chia hết cho 4 trong khoảng từ 5 đến n
b) đếm và in ra màn hình có bao nhiêu số chia hết cho 7 trong khoảng từ 5 đến n
pascal 11
Xem chi tiết
uses crt;
var i,n,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
writeln('Cac so chan va chia het cho 4 trong khoang tu 5 toi ',n,' la: ');
for i:=5 to n do
if (i mod 2=0) and (i mod 7=0) then write(i:4);
writeln;
writeln('Cac so chia het cho 7 trong khoang tu 5 toi ',n,' la: ');
dem:=0;
for i:=5 to n do
if i mod 7=0 then
begin
write(i:4);
inc(dem);
end;
writeln;
writeln('Co ',dem,' so chia het cho 7 trong khoang tu 5 toi ',n);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào m (n>0) in ra màn hình các ước của n
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
Đúng 1
Bình luận (0)
Nhập vào dãy số gồm N phần tử đếm các số dương tính tổng và in ra màn hình các số đó
uses crt;
var i,n,n,d: integer;
t: longint;
A: array[1..32000] of integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i] >0 then
begin
d:=d+1;
t:=t+a[i];
end;
writeln('Tong la:',t);
write('Co tat ca so so duong la:',d);
readln;
end.
Đúng 1
Bình luận (0)