nhập vào số n (10<=n<=10^9), in ra các số có số ước số là 3 từ 1 đến n với n nhập từ bàn phím
Những câu hỏi liên quan
Bài 1: Nhập vào số n (10 < hoặc = n < 100). Tính tổng các số có hàng đơn vị là chẵn
Vd: n=60
S=10+12+......+60
Bài 2: Nhập số n kiểm tra n có phải là số nguyên tố
bài 1:
program tinhtong;
uses crt;
var n,s,i:longint;
begin
clrscr;
repeat
write('nhap so n:');readln(n);
until (n>=10)and(n<100);
s:=0;
for i:=10 to n do
if (i mod 2)=0 then s:=s+i;
write('tong cua cac so co hang don vi chan la:',s);
readln;
end.
bài 2:
program kiem_tra_so_nguyen_to;
uses crt;
var n,j,i:longint;
begin
clrscr;
write('nhap so n:');readln(n);
j:=0;
for i:=1 to n do
if (n mod i)=0 then j:=j+1;
if j=2 then write(n,'la so nguyen to')
else write(n,'khong phai la so nguyen to');
readln;
end.
Đúng 2
Bình luận (0)
Cách khác:
Bài 2:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n>1 then
begin
kt:=0;
for i:=2 to n-1 do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' la hop so');
end
else writeln(n,' khong la so nguyen to cung khong la hop so');
readln;
end.
Đúng 1
Bình luận (0)
Hãy viết chương nhập vào 1 dãy N số nguyên từ bàn phím ( N là Nguyên dương được nhập từ bàn phím vào N>10) . Tính và in ra màn hình trung bình của các số
program trungbinh;
uses crt;
var n,i: integer;
s:real;
A: array[1..1000] of integer;
begin
clrscr;
write('Nhap do dai day: '); readln(n);
writeln('Nhap gia tri cua day: ');
S:=0;
for i:=1 to n do
begin
write('A[',i,']= ');
readln(A[i]);
S:=S+A[i];
end;
S:=S/n;
write('Trung binh cua cac so cua day do la: ',S);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào số nguyên từ 1 đến 10 in ra số lượng dấu sao (*) tương ứng với số n vừa nhập.
#include <bits/stdc++.h>
using namespace std;
int i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
cout<<"* ";
return 0;
}
Đúng 0
Bình luận (0)
nhập vào số nguyên dương n >10 a, từ 1 đến n có bao nhiêu số chẵn
Program HOC24;
var d,i,n: integer;
begin
write('Nhap N: '); readln(n);
d:=0;
for i:=1 to n do if i mod 2=0 then d:=d+1;
write('Co ',d,' so chan');
readln
end.
Đúng 3
Bình luận (0)
Viết chương trình: nhập vào một số tự nhiên n
in ra màn hình bảng cửu chương của số đó
VD: nhập n= 5
5x1=5
5x2=10
. . .
5x10=50
#include <bits/stdc++.h>
using namespace std;
int main(){
int n;
for (int i=1; i<=10; i++)
cout << n <<" x " << i <<" = "<<n*i;
return 0;
}
Đúng 1
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.
Nhập vào mảng A gồm n số nguyên (n<=1000), nhập vào số nguyên K. Tínhtổng các số trong dãy là bội của K.Ví dụ, với n=5, các số trong dãy là 7 8 4 2 10Với k=2, tổng các số trong dãy là bội của 2 là S=8+4+2+10=24.
uses crt;
var a:array[1..1000]of integer;
i,n,k,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
t:=0;
for i:=1 to n do
if a[i] mod k=0 then t:=t+a[i];
writeln('Tong cac so la boi cua ',k,' la: ',t);
readln;
end.
Đúng 2
Bình luận (1)
2. Nhập vào 2 số m,n với 0<n<m<10^9. Hãy in ra màn hình các số nguyên tố
có trong khoảng (n,m)? Cho biết số nhỏ nhất trong các số vừa nhập? thừa,
số chữ số, tổng các chữ số của tổng n giai thừa?
uses crt;
var i,n,m,j,kt:integer;
begin
clrscr;
readln(n,m);
for i:=n to m do
begin
kt:=0;
if (i>2) then begin
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình nhập vào 1 số nguyên n in ra các số từ 1 đến n sao cho cứ 10 số trên 1 dòng?