viết chương trình tính tổng 30 số nguyên đầu tiên
Những câu hỏi liên quan
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 của 30 số tự nhiên đầu tiên
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)
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 chương trình tổng của 30 số tự nhiên đầu tiên
#include <bits/stdc++.h>
using namespace std;
long long i,t;
int main()
{
t=0;
for (i=1; i<=30; i++) t+=i;
cout<<t;
return 0;
}
Đúng 1
Bình luận (0)
Hãy viết chương trình tính tổng 50 số nguyên đầu tiên (n số nguyên, nhập từ bàn phím) dựa vào thuật toán sau: THUẬT TOÁN: B1: đặt tổng s
đề 1:viết chương trình tính tổng của 10 số tự nhiên đầu tiên
đề 2:viết chương trình tính tổng L 5 số tự nhiên đầu tiên(với L đc nhập từ bàn phím)
giúp mk nhé!!!!!!
tự làm là nhanh nhất
ai đòng ý xin 1 ý kiến
Đúng 0
Bình luận (2)
đề 1:viết chương trình tính tổng của 10 số tự nhiên đầu tiên
đề 2:viết chương trình tính tổng L 5 số tự nhiên đầu tiên(với L đc nhập từ bàn phím)
giúp mk nhé!!!!!!
1.
program tinhtong;
uses crt;
var s,i,n:integer;
begin
s:=0;
for i:=1 to 10 do s:=s+1;
writeln ('tong cua s=',s);
readln
end.
2.
program tinhtong;
uses crt;
var i,L,s:integer;
begin
write('nhap gia tri L='); readln(L);
s:=0;
for i:=1 to L do s:=s+1;
writeln('tong cua s=',s);
readln
end.
Đúng 1
Bình luận (1)
Viết chương trình tính tổng N số lẻ đầu tiên
Var i, n,s: longint;
Begin
Write('Nhap so luong so le can tinh tong ');readln(n);
For i:=1 to n do
if i mod 2 <> 0 then s:=s+i;
write('Tong cua ',n,' so le dau tien la ',s);
readln;
end.
Đúng 1
Bình luận (0)
Program tinhtong;
uses crt;
var A, N, i: integer;
begin
clrscr;
write ('nhap N = '); Readln (N);
A:=0;
for i:=1 to N do A:= A+(i*2-1);
writeln ('tong = ',A);
readln;
End.
Đúng 0
Bình luận (1)
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to 2*n do
if i mod 2=1 then s:=s+i;
writeln(s);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình tính tổng 20 số tự nhiên đầu tiên
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 20 do
t:=t+i;
writeln(t);
readln;
end.
Đúng 1
Bình luận (1)