tính n \(\in\) N* biết |x|=12
tính tổng của các số nguyên từ 5 đến -5
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.
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.
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.
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.
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!
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.
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.
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.
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.