Nhập 3 số nguyên dương m,n,k(m<n<k) kiểm tra xem tích mnk có là số có 2 chữ số
Những câu hỏi liên quan
viết trương trính nhập vào 2 số nguyên dương in ra màn hình từ 1->k vs k là tích của m và n
#include <bits/stdc++.h>
using namespace std;
int main()
{
int m,n;
cin>>m>>n;
int k=m*n;
for (int i=1; i<=k; i++)
cout<<i<<" ";
return 0;
}
Đúng 0
Bình luận (0)
viết trương trính nhập vào 2 số nguyên dương in ra màn hình từ 1->k vs k là tích của m và n
#include <bits/stdc++.h>
using namespace std;
int main()
{
int m,n;
cin>>m>>n;
int k=m*n;
for (int i=1; i<=k; i++)
cout<<i<<" ";
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình nhập vào 3 số nguyên m,n,k (m<n).Đếm các số nguyên chia hết cho k trong đoạn [m,n]
Mn giúp e với ạ😭 e cảm ơn nhìu ạ
Nhập từ bàn phím hai số nguyên dương M,N (M<N), tính và đưa ra màn hình tổng các số chia hết cho 3 và 5 trong phạm vi từ M đến N.
#include <bits/stdc++.h>
using namespace std;
long long m,n,i,t;
int main()
{
cin>>m>>n;
t=0;
for (i=m; i<=n; i++)
if (i%15==0) t=t+i;
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
Nhập vào 2 số nguyên dương N,M tính tổng các số nguyên dương là ước ít nhất của 1 số trong đoạn từ n đến m Dữ liệu vào 9 12 Dữ liệu ra 63
Nhập vào từ bàn phím số nguyên dương N (1N 10) - Dòng 1: Tổng các chữ số của N.- Dòng 2: Số lượng các số nguyên dương, không phải là số nguyên tố nhỏ hơn N - Dòng 3: Ghi hai số 7 và K cách nhau 1 dấu cách : I10 cho tổng thu K số nguyên liên tiếp bắt đầu từ Z bằng N, trường hợp tồn tại nhiều giá trị Z, thì hiển thị màn hình kết quả có giá trị Z nhỏ nhất- Dòng 4: Ghi số X là số lượng các chữ số cần dùng để chỉnh chốt quyển sách có N Ví dụ :nhập vào 15in ra d1:6d2:8d3:1 5d4:21
Đọc tiếp
Nhập vào từ bàn phím số nguyên dương N (1<N 10')
- Dòng 1: Tổng các chữ số của N.
- Dòng 2: Số lượng các số nguyên dương, không phải là số nguyên tố nhỏ hơn N
- Dòng 3: Ghi hai số 7 và K cách nhau 1 dấu cách : I10 cho tổng thu K số nguyên liên tiếp bắt đầu từ Z bằng N, trường hợp tồn tại nhiều giá trị Z, thì hiển thị màn hình kết quả có giá trị Z nhỏ nhất
- Dòng 4: Ghi số X là số lượng các chữ số cần dùng để chỉnh chốt quyển sách có N
Ví dụ :nhập vào 15
in ra d1:6
d2:8
d3:1 5
d4:21
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,t,dem,j;
int main()
{
cin>>n;
x=n;
t=0;
while (n>0)
{
t=t+n%10;
n=n/10;
}
cout<<t;
dem=0;
for (i=2; i<=x; i++)
{
bool kt=true;
for (j=2; j*j<=i; j++)
if (i%j==0) kt=false;
if (kt==true) dem++;
}
cout<<dem;
return 0;
}
Đúng 0
Bình luận (0)
Nhập hai số nguyên dương M và N . Tính và in ra tổng số chẵn trong khoảng từ M đến N
uses crt;
var m,n,s,i:integer;
begin
clrscr;
readln(m,n);
s:=0;
for i:=m to n do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
Nhập hai số nguyên dương M và N . Tính và in ra tổng số chẵn trong khoảng từ M đến N
uses crt;
var m,n,s,i:integer;
begin
clrscr;
readln(m,n);
s:=0;
for i:=m to n do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào mảng 1 chiều gồm n phần tử kiểu nguyên , nhập giá trị M , nhập chỉ số k . Chèn giá trị M sau chỉ số k
A) in ra mảng vừa nhập
B)in ra mảng vừa nhập sau khi chèn M sau chỉ số k
phần đọc tự viết
for i:=j to n do
b[i+1]:=a[i];
for i:=1 to j do write(g,a[i]);
write(g,M);
for i:=j+1 to n+1 do
write(g,b[i]);
Đúng 0
Bình luận (0)
uses crt;
var a,b:array[1..100]of integer;
i,n,m,k,tam:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:6);
writeln;
write('Nhap m='); readln(m);
write('Nhap chi so k='); readln(k);
for i:=1 to k do
b[i]:=a[i];
for i:=k+2 to n+1 do
b[i]:=a[i-1];
b[k+1]:=m;
for i:=1 to n+1 do
write(b[i]:6);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình thực hiện các bài tóan sau: Theo 2 cách sử dụng vòng lệnh lặp For.to..do và While...do
1/ Liệt kê các ước của một số nguyên dương n, với n được nhập từ bàn phím?
2/ Liệt kê các ước số chắn của một số nguyên dương n, với n được nhập từ bàn phím?
3/Tính tổng các ước của một số nguyên dương n, với n được nhập từ bàn phím?
4/ Có bao nhiêu số có 3 chữ số chia hết cho 3? 5/ Tính tổng các số chẵn từ 1N, với N được nhập từ bàn phím
6/ Tính tổng các số lẻ từ 1N, với N được nhập từ...
Đọc tiếp
Viết chương trình thực hiện các bài tóan sau: Theo 2 cách sử dụng vòng lệnh lặp For.to..do và While...do
1/ Liệt kê các ước của một số nguyên dương n, với n được nhập từ bàn phím?
2/ Liệt kê các ước số chắn của một số nguyên dương n, với n được nhập từ bàn phím?
3/Tính tổng các ước của một số nguyên dương n, với n được nhập từ bàn phím?
4/ Có bao nhiêu số có 3 chữ số chia hết cho 3? 5/ Tính tổng các số chẵn từ 1>N, với N được nhập từ bàn phím
6/ Tính tổng các số lẻ từ 1>N, với N được nhập từ bàn phím?
7/ Liệt kê các số chia hết cho 5 từ 1-N, với N được nhập từ bàn phím?
8/ Đếm xem có bao nhiêu ước số lẻ của một số nguyên dương n, với n được nhập từ bàn phím?
9/ Nhập N. In bảng cửu chương thứ N. 10/Nhập số nguyên N. Kiểm tra N có phải là số nguyên tổ hay không?
cảm ơn các bạn trước ạ.
Bài 1:
*Dùng For..do
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.
*Dùng While..do
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
while i<=n do
begin
if n mod i=0 then write(i:4);
inc(i);
end;
readln;
end.
Bài 2:
*Dùng For..do
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
if (n mod i=0) and (i mod 2=0) then write(i:4);
readln;
end.
*Dùng While..do
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
while i<=n do
begin
if (n mod i=0) and (i mod 2=0) then write(i:4);
inc(i);
end;
readln;
end.
Bài 3:
*Dùng For..do
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if n mod i=0 then t:=t+i;
writeln('Tong cac uoc cua ',n,' la: ',t);
readln;
end.
*Dùng While..do
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
i:=1;
while i<=n do
begin
if n mod i=0 then t:=t+i;
inc(i);
end;
writeln('Tong cac uoc cua ',n,' la: ',t);
readln;
end.
Bài 4:
*Dùng For..do
uses crt;
var i,dem:integer;
begin
clrscr;
dem:=0;
for i:=100 to 999 do
if i mod 3=0 then inc(dem);
writeln('So cac so co 3 chu so chia het cho 3 la: ',dem);
readln;
end.
*Dùng While..do
uses crt;
var i,dem:integer;
begin
clrscr;
dem:=0;
i:=100;
while i<=999 do
begin
if i mod 3=0 then inc(dem);
inc(i);
end;
writeln('So cac so co 3 chu so chia het cho 3 la: ',dem);
readln;
end.
Bài 5:
*Dùng For..do
uses crt;
var i,t,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
writeln('Tong cac so chan tu 1 toi ',n,' la: ',t);
readln;
end.
*Dùng While..do
uses crt;
var i,t,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
i:=1;
while i<=n do
begin
if i mod 2=0 then t:=t+i;
inc(i);
end;
writeln('Tong cac so chan tu 1 toi ',n,' la: ',t);
readln;
end.
Bài 6:
*Dùng For..do
uses crt;
var i,t,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+i;
writeln('Tong cac so le tu 1 toi ',n,' la: ',t);
readln;
end.
*Dùng While..do
uses crt;
var i,t,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
i:=1;
while i<=n do
begin
if i mod 2=1 then t:=t+i;
inc(i);
end;
writeln('Tong cac so le tu 1 toi ',n,' la: ',t);
readln;
end.
Bài 7:
*Dùng For..do
uses crt;
var i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
if i mod 5=0 then write(i:4);
readln;
end.
*Dùng While..do
uses crt;
var i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
while i<=n do
begin
if i mod 5=0 then write(i:4);
inc(i);
end;
readln;
end.
Bài 8:
*Dùng For..do
uses crt;
var i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
for i:=1 to n do
if (n mod i=0) and (i mod 2=1) then inc(dem);
writeln('So uoc le cua ',n,' la: ',dem);
readln;
end.
*Dùng While..do
uses crt;
var i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
i:=1;
while i<=n do
begin
if (n mod i=0) and (i mod 2=1) then inc(dem);
i:=i+1;
end;
writeln('So uoc le cua ',n,' la: ',dem);
readln;
end.
Bài 9:
*Dùng For..do
uses crt;
var i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
writeln('Bang cuu chuong ',n,' la: ');
for i:=1 to 10 do
writeln(n*i);
readln;
end.
*Dùng While..do
uses crt;
var i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
writeln('Bang cuu chuong ',n,' la: ');
i:=1;
while i<=10 do
begin
writeln(n*i);
inc(i);
end;
readln;
end.
Bài 10:
*Dùng For..do
uses crt;
var i,n,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
kt:=0;
for i:=2 to n-1 do
if n mod i=0 then kt:=1;
if kt=0 then write(n,' la so nguyen to')
else write(n,' la hop so');
readln;
end.
*Dùng While..do
uses crt;
var i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=2;
while (n mod i<>0) and (i<=n) do
begin
inc(i);
end;
if i=n then writeln(n,' la so nguyen to')
else writeln(n,' la hop so');
readln;
end.
Đúng 1
Bình luận (0)