viết phương trình tính tổng N số nguyên dương đầu tiên
Những câu hỏi liên quan
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.
Đúng 1
Bình luận (0)
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.
Đúng 0
Bình luận (0)
Cho biết tổng của n số nguyên dương đầu tiên là 155. Tính tổng của 3n số nguyên dương đầu tiên.
Viết chương trình sử dụng chương trình con (Pascal)
- Tính n! với n nguyên dương?
- Đảo ngược xâu st cho trước?
- Đếm số nguyên dương N có bao nhiêu chữ số?
- Kiểm tra tính đối xướng của một xâu st cho trước?
- Viết ra n số nguyên tố đầu tiên?
- Nhập 1 dãy số nguyên dương, sau đó viết ra số nguyen dương trong dãy?
Cái này mình viết chương trình chính thôi, bạn tự viết ctc nhé
Câu 1:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(s);
readln;
end.
Đúng 1
Bình luận (1)
Câu 2:
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=d downto 1 do
write(st[i]);
readln;
end.
Đúng 1
Bình luận (0)
Câu 3:
uses crt;
var n:integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
str(n,st);
writeln('So ',n,' co ',length(st),' chu so');
readln;
end.
Đúng 1
Bình luận (0)
Xem thêm câu trả lời
Câu 1: Viết chương trình tính tổng dãy số sau: S=12+22+...+n2.
Câu 2: Viết chương trình tính tổng nghịch đảo N số nguyên đầu tiên.
Câu 1:
var i,n:integer;
s:longint;
begin
write('Nhap n = ');readln(n);
for i:=1 to n do
s:=s+(i*10+2);
write('S = ',s);
readln;
end.
Câu 2:
var i,n:integer;
s:real;
begin
write('Nhap n = ');readln(n);
for i:=1 to n do s:=s+1/n;
write('tong la ',s:10:2);
readln;
end.
Đúng 2
Bình luận (0)
Viết chương trình tính tổng bình phương của n số lẻ đầu tiên
uses crt;
var i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to 2*n do
if i mod 2=1 then t:=t+sqr(i);
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập 1 số nguyên dương n. Sau đó xuất ra màn hình tổng của n số tự nhiên đầu tiên (yêu cầu : sử dụng câu lệnh while....do)
program Tinh_Tong;
var n, s, i: integer;
begin
write('Nhap vao so nguyen duong n: ');
readln(n);
s := 0;
i := 1;
while i <= n do
begin
s := s + i;
i := i + 1;
end;
writeln('Tong cua ', n, ' so tu nhien dau tien la: ', s);
end.
Đúng 1
Bình luận (0)
Viết chương trình tính tổng n số nguyên tố đầu tiên với n nhập từ bàn phím
program tinhtong;
uses crt;
var i, s, n : integer;
a : array [1..100] of integer;
begin
clrscr;
write('So thu n la: '); readln(n);
s:=0
for i:=1 to n do begin
write('Nhap so thu ',i); readln(a[i]);
s:=s+a[i]; end;
writeln('Tong cac so do la: ',s);
readln
end.
Đúng 1
Bình luận (0)
uses crt;
var a:array[1..100]of integer;
n,i,dem,x,kt,t:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
dem:=1;
a[1]:=2;
x:=2;
repeat
x:=x+1;
kt:=0;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then
begin
kt:=1;
break;
end;
if kt=0 then
begin
inc(dem);
a[dem]:=x;
end;
until dem=n;
t:=0;
for i:=1 to dem do
t:=t+a[i];
writeln('Tong cua ',n,' so nguyen to dau tien la: ',t);
readln;
end.
Đúng 0
Bình luận (0)
viết phương trình tính tổng n số tự nhiên đầu tiên bằng while do
program Tinh_tong;
uses crt;
var i,n:byte;
S:integer;
begin
clrscr;
writeln('Nhap so n='); readln(n);
i:=1 ; S:=0;
while i<=n do
begin
S:=S+i; i:=i+1;
end;
writle('Tong n so tu nhien dau tien, S=',S);
end.
Đúng 1
Bình luận (0)
function sum_n(n: integer): integer;
var
i, sum: integer;
begin
sum := 0;
i := 1;
while i <= n do
begin
sum := sum + i;
i := i + 1;
end;
sum_n := sum;
end;
Đúng 1
Bình luận (0)
Viết chương trình tính tổng các số không chia hết cho 5 của 100 số nguyên dương đầu tiên xuất kết quả ra màn hình làm nhanh giúp em ạ
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do
if i mod 5<>0 then t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Giả sử đã có một chương trình tính tổng N số nguyên dương đầu tiên với N nhập vào từ bàn phím. Em hãy cho biết không nên chọn giá trị nào trong những phương án dưới đây để làm dữ liệu kiểm thử
Một số nguyên lớn hơn 1000
Số -5
Số 25
Một số nguyên N nhỏ hơn 10