nhập 1 số tự nhiên n với n(0<=n). hãy cho biết số chữ số của số n vừa nhập
XH
Những câu hỏi liên quan
NK
28 tháng 3 2021 lúc 23:10
Câu 1: Tìm tổng n số tự nhiên nhập từ bàn phím.
Câu 2: Tìm tích n số tự nhiên nhập từ bàn phím.
Giúp mình với ạ:(( Mai mình thi rồi:((
program tim_tong_va_tich;
uses crt;
var n,i:integer;
tong,tich:longint;
a:array[1..100]of integer;
begin
write('nhap so n:');readln(n);
i:=1;tich:=1;tong:=0;
while i<=n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
tong:=tong+a[i];tich:=tich+a[i];
i:=i+1;
end;
writeln('tong cua cac so tren la:',tong);
writeln('tich cua cac so tren la:',tich);
readln;
end.
Đúng 1
Bình luận (0)
Nhập vào 1 số tự nhiên n với (0<n<=65535), phân tích số vừa nhập thành các thừa số nguyên tố, nếu số vừa nhập là số nguyên tố thì chỉ thông báo ra màn hình đây là số nguyên tố.
"mn giúp e vs, 8h 27/7 e nộp r."
Uses crt;
var i,n,uoc,j,tam:longint;
Begin
clrscr;
readln(n);uoc:=0;tam:=0;
for i:= 1 to n do if n mod i = 0 then inc(uoc);
if uoc = 2 then write(n,' la so nguyen to')
else for i:= 2 to n do if n mod i = 0 then
begin
tam:=0;
for j:= 1 to i do if i mod j = 0 then inc(tam);
if tam = 2 then write(i,' ');
end;
readln;
end.
Có chỗ nào sai thì bảo mình
Đúng 1
Bình luận (1)
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)
viết chương trình nhập vào 1 số tự nhiên n ( n khác 0) in ra màn hình các số trong phạm vi từ 1 đến n
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do write(i:4);
readln;
end.
Đúng 1
Bình luận (0)
n = int(input("Nhập vào số n: "))
if n <= 0:
print("n phải lớn hơn 0")
else:
for i in range(1, n+1):
print(i)
Đúng 1
Bình luận (0)
Bài 1: viết chương trình in ra các số chẵn là bội của 7 và nhỏ hơn hoặc bằng số nguyên dương N (với N được nhập). Yêu cầu nhập lại nếu a<=0.
Bài 2: Cho 2 số tự nhiên n,m. Viết chương trình tính tổng và tích cuả m chữ số cuối cùng của n.
Giup mình với ạ! mình cảm ơn!
viết chương trình tính tổng các số tự nhiên từ 1 đến N. Với số N là số tự nhiên bất kì do người sử dụng nhập.
program TinhTongTu1DenN;
var
N, i, tong: integer;
begin
write('Nhap so N: ');
readln(N);
tong := 0;
for i := 1 to N do
tong := tong + i;
writeln('Tong cac so tu 1 den ', N, ' la: ', tong);
readln;
end.
Đúng 1
Bình luận (0)
N = int(input("Nhập số tự nhiên N: "))
tong = 0
for i in range(1, N+1):
tong += i
print("Tổng các số từ 1 đến ", N, " là: ", tong)
Đúng 0
Bình luận (0)
1) Viết chương trình nhập vào số tự nhiênn có m chữ số(0<m<10) tìm số nhỏ nhất và lớn nhất.
2) Nhập vào số thực A, tìm số tự nhiên N nhỏ nhất sao cho S=1+1/2+1/3+1/4+...+1/N. Xin cảm ơn.
Viết chương trình tính tích n số tự nhiên đầu tiên khác 0 ( n được nhập từ bàn phím). Mọi người giải nhanh câu này giúo mình với , chú ý n khác 0 nhé
Var i,n:integer;
p:longint;
Begin
Write('Nhap n = ');readln(n);
p:=0;
For i:=2 to n do p:=p*i;
Write('Tich la ',p);
Readln;
End.
Đúng 0
Bình luận (0)
Var i,n:integer;
p:longint;
Begin
Write('Nhap n = ');readln(n);
p:=1;
For i:=2 to n do p:=p*i;
Write('Tich la ',p);
Readln;
End.
Đúng 0
Bình luận (0)
viết chương trình tính tổng n số tự nhiên : S =1+2+3+...+ n, với n là số tự nhiên được nhập từ bàn phím ( có sử dụng khai báo biến mảng )
program SumOfNumbers;
uses crt;
var
n, i, sum: integer;
numbers: array[1..100] of integer;
begin
clrscr;
write('Enter n: ');
readln(n);
// Tạo mảng các số tự nhiên từ 1 đến n
for i := 1 to n do
numbers[i] := i;
// Tính tổng các số tự nhiên từ 1 đến n
sum := 0;
for i := 1 to n do
sum := sum + numbers[i];
writeln('The sum of the first ', n, ' natural numbers is: ', sum);
readln;
end.
Đúng 2
Bình luận (0)