viết chương trình tính tổng của các số
T=1+1/2+1/3+...+1/n với n đc nhập từ bàn phím
mọi người giúp mình với
1. Viết chương trình tính tích N=1*2*3*...*n (với n được nhập từ bàn phím)
2. Viết chương trình tính tổng A=1/1*3+1/2*4+1/3*5+...+1/n*(n+2)
3. Viết chương trình tính tổng số lẻ có trong dãy từ 0->n (n được nhập từ bàn phím)
4. Viết chương trình in ra màn hình các số chẵn có trong dãy từ 0->n (n được nhập từ bàn phím) và đếm có bao nhiêu số.
5. Viết chương trình in ra màn hình các số lẻ có trong dãy số từ 0->n (n được nhập từ bàn phím) và đếm có bao nhiêu số.
6. Viết chương trình nhập số nguyên n. Tìm và đưa ra màn hình các ước của n.
7. Viết chương trình in ra màn hình các bội của n ( n được nhập từ bàn phím)
8. Viết chương trình tính tổng S=1/1+1/2+1/3+...+1/n (n được nhập từ bàn phím)
Câu 6:
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
5:
uses crt;
var n,i,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=0 to n do
if i mod 2=1 then
begin
write(i:4);
dem:=dem+1;
end;
writeln;
writeln(dem);
readln;
end.
Câu 1 : viết chương trình tính tổng các số chẵn với n được nhập từ bàn phím ?
Câu 2 : viết chương trình tính tổng các số lẻ với n được nhập từ bàn phím ?
Câu 1:
program Tinhtong:
var
n, i, sum: integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
for i := 2 to n do
begin
if i mod 2 = 0 then
begin
sum := sum + i;
end;
end;
writeln('Tong cac so chan tu 2 toi ', n, ' la ', sum);
readln;
end.
Câu 2:
program Tinhtong:
var
n, i, sum: integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
for i := 1 to n do
begin
if i mod 2 = 1 then
begin
sum := sum + i;
end;
end;
writeln('Tong cac so le tu 1 toi ', n, ' la ', sum);
readln;
end.
1/ viết chương trình tính tổng bình phương s= 1² +2²+3²+... + n² với n là số nguyên dương được nhập từ bàn phím 2/ viết chương trình tính tổng của n số lẻ đầu tiên với n là số nguyên dương được nhập từ bàn phím
1:
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
t:=t+i*i;
write(t);
readln;
end.
2
program bt2;
var i,n,t:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
if i mod 2 = 1 then s:=s+i;
readln;
end.
mn giúp em với ạ sắp thi rồi :|||
câu 1: viết chương trình tính N! (với số N là số tự nhiên được nhập từ bàn phím
câu 2: viết chương trình tính tổng sau
s=1+1/2+1/3.....+1/n
Câu 1:
Program HOC24;
var i,n: integer;
t: longint;
write('Nhap N: '); readln(n);
t:=1;
for i:=1 to n do t:=t*i;
write(n,'! = ',t);
readln
end.
Câu 2:
Program HOC24;
var i,n: integer;
S: real;
begin
write('Nhap n: '); readln(n);
S:=0;
for i:=1 to n do S:=S+1/i;
write('S = ',s);
readln
end.
Bài 1: Viết chương trình tính tổng các số chẵn từ 10 đến 50?
Bài 2: Viết chương trình giải bài toán sau: Tính tổng A ( n là số tự nhiên được nhập từ bàn phím)
A= 1.3 + 2.4 + 3.5 +...+ n(n+2).
Giúp mình với nhanh nhanh nha.
Bài 1:
uses crt;
var i,s:integer;
begin
clrscr;
s:=0;
for i:=10 to 50 do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
Bài 2:
uses crt;
var a,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
a:=0;
for i:=1 to n do
a:=a+i*(i+2);
writeln(a);
readln;
end.
a, Sử dụng NNLT Python để viết chương trình tính tổng s=2+4+6+…+n, với n nhập từ bàn phím.
b, Sử dụng NNLT Python để viết chương trình tính tổng s=1+3+5+…+n, với n nhập từ bàn phím.
Bài 1:
function canbac2(x:longint):real;
begin
canbac2:=sqrt(x);
end;
Bài 2:
function tong(n:longint):longint;
var s,i:longint;
begin
s:=0;
for i:=1 to n do
s:=s+i;
tong:=s;
end;
Câu 1. Viết chương trình tính tổng các số lẻ từ 1 đến n ( n nhập từ bàn phím).
Câu 2. Viết chương trình tính tổng các số chẵn từ 1 đến n ( n nhập từ bàn phím).
help me, pls
Câu 1:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 <> 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.
Câu 2:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 = 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.