tính n \(\in\) N* biết |x|=12
tính tổng của các số nguyên từ 5 đến -5
NB
Những câu hỏi liên quan
xác định input output và viet thuật toán nhập vào từ bàn phím số nguyên dương N. Tính và đưa ra tổng: a) các số từ 1 đến N
b) các số lẻ từ 1 đến N
c) các số chẵn từ 1 đến N
d) các số lẻ và là bội của 5 từ 1 đến N
e) các số chẵn và là bội của 5 từ 1 đến N
Tính và đưa ra hiệu: a) Các số từ 1 đến N
b) các số lẻ từ 1 đến N
c) các chẵn từ 1 đến N
d) các số lẻ và là bội của 5 từ 1 đến N
e) các số chẵn và là bội của 5 từ 1 đến N
Đọc tiếp
xác định input output và viet thuật toán nhập vào từ bàn phím số nguyên dương N. Tính và đưa ra tổng: a) các số từ 1 đến N
b) các số lẻ từ 1 đến N
c) các số chẵn từ 1 đến N
d) các số lẻ và là bội của 5 từ 1 đến N
e) các số chẵn và là bội của 5 từ 1 đến N
Tính và đưa ra hiệu: a) Các số từ 1 đến N
b) các số lẻ từ 1 đến N
c) các chẵn từ 1 đến N
d) các số lẻ và là bội của 5 từ 1 đến N
e) các số chẵn và là bội của 5 từ 1 đến N
Câu 1: Viết chương trình nhập vào số nguyên n có 2 chữ số (Nếu nhập sai thì nhập lại).
a) In ra các số chẵn từ 0 đến n
b) In ra các số lẽ từ 1 đến n
c) Tính tổng các số chẵn từ 0 đến n
d) Tính tổng các số lẻ từ 1 đến n
câu 1: Cho 1 số nguyên n
- Hãy tính tổng các số từ 1 đến N
- Hãy tính tổng các số chẵn từ 2 đến N
câu 2: Cho 2 số nguyên a và b:
- Tìm Bôi chung nhỏ nhất của a và b
câu 3: Cho 2 số nguyên p và q (p<q). Hãy in ra màn hình các số nguyên tố trong khoảng p và q. Hãy cho biết có bao nhiêu số nguyên tố?
GIÚP MÌNH VỚI MÍ BẠN ƠI:(((((
Câu 1:
uses crt;
var n,i,t1,t2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t1:=0;
t2:=0;
for i:=1 to n do
begin
t1:=t1+i;
if i mod 2=0 then t2:=t2+i;
end;
writeln('Tong cac so tu 1 den ',n,' la: ',t1);
writeln('Tong cac so chan tu 1 den ',n,' la: ',t2);
readln;
end.
Đúng 0
Bình luận (0)
Câu 2:
uses crt;
var a,b,i,bcnn:longint;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
bcnn:=a*b;
for i:=a*b-1 downto 1 do
if (i mod a=0) and (i mod b=0) then
begin
if bcnn>i then bcnn:=i;
end;
writeln(bcnn);
readln;
end.
Đúng 0
Bình luận (0)
Câu 3:
uses crt;
var p,q,i,j,kt,dem:integer;
begin
clrscr;
write('Nhap p='); readln(p);
write('Nhap q='); readln(q);
dem:=0;
for i:=p to q do
if i>1 then
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then
begin
write(i:4);
inc(dem);
end;
end;
writeln;
writeln('Co ',dem,' so nguyen to');
readln;
end.
Đúng 0
Bình luận (0)
Tìm input output và cách giải cho các bài toán sau:
a. Tính tổng các số nguyên dương từ n đến m, với n,m thuộc tập số nguyên N và n<=m.
b.Xét tính chẵn lẻ của một số nguyên a.
c.Tính điểm trung bình hai môn Văn và toán của 5 học sinh
Viết chương trình tính tổng các giá trị là bội của 5 trong phạm vi từ 1 đến N
(Số nguyên dương N được nhập vào từ bàn phím)
Program bt_3;
Uses crt;
Var Tong, n, i: integer;
Begin
Clrscr;
Writeln(‘nhap n=’);
Readln (n);
Tong:=0;
For i:=1 to n do
If I mod 5 = 0 then Tong:= Tong+i;
Writeln(‘Tong la:’,Tong);
Readln
End.
Đú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)
MÀY LÀ MỘT CON CHÓ NGU L NHẤT T TỪNG BIẾT
ĐCM HƯƠNG TRÀ
ĐCM HƯƠNG TRÀ
ĐCM HƯƠNG TRÀ
CÁI J QUAN TRONG NHẮC LẠI 3 LẦN NHA CON ĐĨ NGU
Đúng 0
Bình luận (0)
MẤY CON CHÓ TRẢ LỜI CÂU HỎI CỦA CON L NGU HƠN CON SÚC VẬT
HOC ĐC VÀI ĐƯỜNG CODE BẨN CŨNG LÊN ĐÂY TRẢ LỜI
M HƠN AI TỤI SÚC VẬT
NGU NHẤT LÀ CON CÔNG CHÚA SAKURA
NGU NHẤT LÀ CON CÔNG CHÚA SAKURA
NGU NHẤT LÀ CON CÔNG CHÚA SAKURA
VIẾT CODE NHƯ DÁI TAO
Đúng 0
Bình luận (0)
Bài 1: VCT đếm các phần tử là số nguyên âm chẵn của dãy n số nguyên từ bàn phím. Sau đó in kết quả ra màn hình Bài 2:VCT tính tổng các phần tử chia hết cho 5 của dãy n số nguyên nhập từ bàn phím. Sau đó in dãy số và kết quả r màn hình Bài 3: VCT tính tích các phần tử là số chẵn của dãy n nhập từ bàn phím và in kết quả r màn hình (Giúp mik vs ạ)
Bài 1:
Program HOC24;
var a: array[1..1000] of integer;
i,n,d: integer;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
for i:=1 to n do if (a[i]<0) and (a[i] mod 2=0) then d:=d+1;
write('Co ',d,' so nguyen am chan trong day so');
readln
end.
Đúng 1
Bình luận (0)
Bài 2:
Program HOC24;
var a: array[1..1000] of integer;
i,n: integer;
t: longint;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=0;
for i:=1 to n do if a[i] mod 5=0 then t:=t+a[i];
write(Tong la: ',t);
readln
end.
Đúng 1
Bình luận (0)
Bài 3:
Program HOC24;
var a: array[1..1000] of integer;
i,n: integer;
t: longint;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=1;
for i:=1 to n do if (a[i] mod 2=0) then t:=t*a[i];
write('Tich la: ',t);
readln
end.
Đúng 1
Bình luận (0)
Tính tổng các số nguyên trong phạm vi từ N đến M ( phải thêm 1 đại lượng vào và phải xem xét N < M hay N > M )
Nếu các số cần tính tổng không liên tục thì sao ? Bài Toán tính tổng N số bất kì ( các bạn cũng dùng cách nhập đay số trong C.ICT )
Tính tổng các số lẻ từ 1 đến N
Tính tích các số chẵn từ 1 đến N ( N1)
Tính lũy thừa y của x ( x^y )
Viết chương trình từ bàn phím số nguyên dương N, sử dụng câu lệnh điều kiện để tính tổng các giá trị chia hết cho 5 trong phạm vi 1 đến N. Rồi in kết quả ra màn hình
giúp mình với cảm ơn!
program songuyenduong;
var
n, i : integer;
sum : integer;
begin
writeln('Nhap vao so nguyen duong N: ');
readln(n);
sum := 0;
for i := 1 to n do
begin
if i mod 5 = 0 then
sum := sum + i;
end;
writeln(sum);
end.
Đúng 2
Bình luận (0)