Viết chương trình nhập vào sô nguyên n với ( với 3<= n <=50). Sau đó tính tổng các số chia hết cho 3 trong khoảng từ 3 đến n
Những câu hỏi liên quan
5. Viết chương trình a. Viết chương trình nhập và in ra 1 mảng gôm 40 phần tử kiểu số nguyên b. Viết chương trình nhập vào 1 mảng n số thực và in ra mảng đó ( với n là sô nguyên được nhập từ bàn phím và 0
Viết chương trình nhập vào sô nguyên n với ( với 3<= n <=50). Sau đó tính tổng các số chia hết cho 3 trong khoảng từ 3 đến n
program TongCacSoChiaHetChoBa;
var
n, i, sum: integer;
begin
repeat
Write('Nhap so nguyen n (3 <= n <= 50): ');
Readln(n);
until (n >= 3) and (n <= 50);
sum := 0;
for i := 3 to n do
begin
if i mod 3 = 0 then
sum := sum + i;
end;
WriteLn('Tong cac so chia het cho 3 trong khoang tu 3 den ', n, ': ', sum);
ReadLn;
end.
Đúng 0
Bình luận (0)
viết chương trình nhập vào sô nguyên n và n số nguyên từ bàn phím? in ra màn hình số lượng các số nguyên là số chẵn
uses crt;
var n, i, j, dem: longint; {Bạn có thể thay longint thành integer nha}
A:array[1..1000] of longint;
begin
clrscr;
Write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
end;
Write('Cac so nguyen to co trong mang la: ');
for i:=1 to n do
begin
dem:=0;
for j:=2 to A[i]/2 do
if A[i] mod j=0 then dem:=dem+1;
if dem=0 then write(A[i],' ');
end;
end.
Đúng 1
Bình luận (2)
Tk
uses crt;
var n, i, j, dem: longint; {Bạn có thể thay longint thành integer nha}
A:array[1..1000] of longint;
begin
clrscr;
Write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
end;
Write('Cac so nguyen to co trong mang la: ');
for i:=1 to n do
begin
dem:=0;
for j:=2 to A[i]/2 do
if A[i] mod j=0 then dem:=dem+1;
if dem=0 then write(A[i],' ');
end;
end.
Đúng 1
Bình luận (0)
viết chương trình nhập vào sô nguyên n và n số nguyên từ bàn phím? in ra màn hình số lượng các số nguyên là số lẻ
program so_le;
uses crt;
var
n,i,d:integer;
a:Array[1..32000] of integer;
begin
clrscr;
write('nhap n: ');
readln(n);
for i:= 1 to n do
begin
write('nhap a[',i,']: ');
readln(a[i]);
end;
d:=0;
for i:= 1 to n do
if a[i] mod 2 <> 0 then d:=d+1;
write('so luong so nguyen la so le la: ',d);
readln;
end.
Đúng 1
Bình luận (0)
Câu 2: Viết Chương trình tính hiệu a - b với a,b là hai số nguyên nhập từ bàn phím
Câu 3: Viết Chương trình nhập vào ba số nguyên a, b, c. tính a+b-c.
Câu 4: Viết Chương trình nhập vào 3 số x, y, z. Tính (x+y)*z (giúp em với ạ em cảm ơn mọi người)
C1:
khai báo:
program hieu_a_va_b ("tự đặt tên cái này ko cần thiết)
uses crt;
var a, b : integer
phần thân:
begin
writeln ("nhap so a"); read(a);
writeln ("nhap so b"); read(b);
writeln ("hieu cua hai so la: a - b=" , a - b);
end.
C2:
khai báo:
program tinh_ba_so
uses crt;
var a, b, c : integer
phần thân:
begin
writeln ("nhap so a"); read(a);
writeln ("nhap so b"); read(b);
writeln ("nhap so c"); read(c);
writeln ("ket qua cua phep tinh a+b-c la" , a+b-c);
end.
C3:
khai báo:
program tinh_ba_so
uses crt;
var x, y, z : integer
phần thân:
begin
writeln ("nhap so x"); read(x);
writeln ("nhap so y"); read(y);
writeln ("nhap so z"); read(z);
writeln ("ket qua cua phep tinh (x+y)*z la") , (x+y)*z);
end.
nhớ chạy thử chương trình nha. xem có lỗi ko.
(nhớ tick cho mk nha)
Đúng 0
Bình luận (0)
Câu 2: Viết Chương trình tính hiệu a - b với a,b là hai số nguyên nhập từ bàn phím
Câu 3: Viết Chương trình nhập vào ba số nguyên a, b, c. tính a+b-c.
Câu 4: Viết Chương trình nhập vào 3 số x, y, z. Tính (x+y)*z (giúp em với ạ em cảm ơn mọi người)
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<a-b;
return 0;
}
Đúng 0
Bình luận (0)
Câu 1: Viết chương trình nhập vào một số nguyên n. In ra màn hình tích các số từ 1 đến n.
Câu 2: Viết chương trình nhập vào một số nguyên n. In ra màn hình tích các số chẵn từ 1 đến n.
Câu 3: Viết chương trình nhập vào một số nguyên n. In ra màn hình tích các số lẻ từ 1 đến n.
c1:
#include <bits/stdc++.h>
using namespace std;
long long i,n,s;
int main()
{
cin>>n;
s=1;
for (i=1; i<=n; i++) s=s*i;
cout<<s;
return 0;
}
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long i,n,s;
int main()
{
cin>>n;
s=1;
for (i=1; i<=n; i++) if (i%2==0) s=s*i;
cout<<s;
return 0;
}
Đúng 0
Bình luận (0)
a, Viết chương trình nhập vào số nguyên dương, tính N!=1*2*3*...*N
VD N=5 thì in ra 5!=120
b, Viết chương trình tính tổng số chẵn từ 1 đến N với N là số nguyên sau đó hiển thị ra tông
VD N=10 thì tổng số chẵn là 30
c, Viết chương trình nhập vào của một số nguyên dương N, kiểm tra xem có phải số nguyên tố
a)
uses crt;
VAR
n, d, i: integer;
BEGIN
clrscr;
Writeln ('Nhap vao n='); readln (n);
d : = 1;
For i: = 1 to n do
d: = d*i;
Writeln ('d=',d);
Readln;
END.
c)
uses crt;
VAR
n, i, demuoc: integer;
BEGIN
clrscr;
Writeln ('Nhap vao n='); readln (n);
demuoc: = 0;
For i: = 1 to n do
If n mod i = 0 then
demuoc : = demuoc + 1;
If demuoc = 2 then
Writeln ('n la so nguyen to')
ELSE
Writeln ('n khong phai la so nguyen to');
Readln ;
END.
Còn phần b bạn tự nghĩ nha!
Chúc bạn học tốt!
Đúng 0
Bình luận (0)
1)viết chương trình xuất ra các bội số của B trong phạm vị từ 1 đến N, với giá trị B, N được nhập vào từ bàn phím
2) nhập số nguyên n, viết chương trình xem số n có phải là số nguyên tố không
3)viết chương trình kiểm tra C có phải số hoàn hảo hay không
2:
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,i,kt=0;
cin>>n;
for (int i=2; i*i<=n; i++)
if (n%i==0) kt=1;
if (kt==0) cout<<"YES";
else cout<<"NO";
}
Đúng 0
Bình luận (0)