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.
uses crt;
var s:real;
i,n:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+(n*(n+1))/((n+2)*(n+3));
writeln(s:4:2);
readln;
end.
var n,i,s:longint;
begin clrscr;
wroite('n=');readln(n);
s:=0;
for i:=1 to n do s:=s+2*i+1;
write(s);
readln;
end.
Viết thân thôi hen
Var n,i,s:integer;
Read(n);
s:=0;
For i:=1 to n do
If i mod 2 <>0 then s:=s+i else s:=s-i;
Write(s);
end.
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,i,t=0;
cin>>n;
for (int i=1; i<=3*n+1; i++)
if (i%2==1) t+=i;
else t-=i;
cout<<t;
}
a)
program Tinh_S;
var
n, S: integer;
i: integer;
begin
write('Nhap gia tri cua n (30 <= n <= 90): ');
readln(n);
S := 0;
if (n >= 30) and (n <= 90) then
begin
for i := 1 to n do
S := S + i;
writeln('Gia tri cua bieu thuc S la: ', S);
end
else
writeln('Gia tri cua n khong hop le!');
readln;
end.
b)
program Tim_n;
var
n, S: integer;
begin
for n := 30 to 90 do
begin
S := 0;
for i := 1 to n do
S := S + i;
if S > 1000 then
begin
writeln('Gia tri cua n la: ', n);
break;
end;
end;
readln;
end.
a)program Tinh_S;
var n,s,i:longint;
begin
s := 0;
write('Nhap n (30 <= n <= 90): ');
readln(n);
for i := 1 to n do
begin
s := s + i;
end;
writeln('Tong S la: ', s);
end.
b) program Tim_N;
var n,s,i: longint;
begin
s := 0;
n := 1;
while s <= 1000 do
begin
s := s + n;
n := n + 1;
end;
writeln('Gia tri n can tim la: ', n-1);
end.