viết chương trình tính tích S = 1+2+3+4.........+n ( câu lệnh while.....do)
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Câu lệnh for ... do
program Tinh_Tich;
var
n, i: integer;
S: double;
begin
write('Nhap vao so nguyen N: ');
readln(n);
S := 1;
for i := 7 to n do
begin
S := S * i * i * i;
end;
writeln('Tich cac so 7^3*8^3*9^3*...*N^3 la: ', S);
readln;
end.
Câu lệnh while .... do
program Tinh_Tich;
var
n, i: integer;
S: double;
begin
write('Nhap vao so nguyen N: ');
readln(n);
S := 1;
i := 7;
while (i <= n) do
begin
S := S * i * i * i;
i := i + 1;
end;
writeln('Tich cac so 7^3*8^3*9^3*...*N^3 la: ', S);
readln;
end.
For...do:
var s,i: integer;
begin
readln(s,i);
s:=0;
For i:=3 to 99 do
If i mod 3 = 0 do s:=s+i;
write(s)
readln;
end.
while ... do:
Var i,S:integer;
Begin
Readln(i,s);
S:=0;
i:=3;
while i<=99 do
if i mod 3 = 0 then s:=s+i;
write(s);
Readln;
End.
a: uses crt;
var i,n:integer;
s:real;
begin
clrscr;
s:=0;
for i:=1 to 100 do s:=s+1/i;
writeln(s:4:2);
readln;
end.
b:
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
s:=0;
i:=0;
while i<=100 do
begin
inc(i);
s:=s+1/i;
end;
writeln(s:4:2);
readln;
end.
var i,n,s:integer;
begin
write('nhap n = ');readln(n);
i:=1;
while i<=n do
begin
s:=s+i;
i:=i+1;
end;
write('Tong la ',s);
readln;
end.
a)
uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(s);
readln;
end.
b)
uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.
program Tinh_S;
var i,n:integer;
S:real;
begin
writeln('Nhap so n=') ; readln(n);
i:=1 ; S:=0;
while i<=n do
begin
S:=S+1/n*(n+1); i:=i+1;
end;
writeln('Tong S=',S);
readln
end.
program tinh_tong;
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n*2-1 do
if i mod 2=1 then s:=s+1/i;
writeln('tong la: ',s);
readln;
end.
program tinh_tong;
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('nhap n:');readln(n);
i:=1;
while i<=n*2-1 do
begin
s:=s+1/i;
i:=i+2;
end;
writeln('tong la: ',s);
readln;
end.
int main()
{
int n;
long s;
s=0;
i=1;
printf("\nSo n la: ");
scanf("%d",&n);
for(int i=1; i<=n; i++)
{
s=s+i;
}
printf("\nTổng %d là %ld: ", n, s);
}
uses crt;
var i,n,s:integer;
begin
clrscr;
readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.