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.
Bài 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(2*i+1);
writeln(s:4:2);
readln;
end.
1:
#include <bits/stdc++.h>
using namespace std;
long long a;
int main()
{
cin>>a;
if (a%2==0) cout<<"Chan";
else cout<<"Le";
return 0;
}
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.
var i,n:integer;
s:real;
begin
s:=1;
write('ban hay nhap vao mot so nguyen: '); readln(n);
for i:= 1 to n do
s:= s + (1/(i*(i+1));
writeln(' tong s = ',s:0:2);
readln
end.
var i,n:integer;
s:real;
begin
s:=1;
write('ban hay nhap vao mot so nguyen: '); readln(n);
for i:= 1 to n do
s:= s + (1/(i*(i+1));
writeln(' tong s = ',s:0:2);
readln
end.
Bạn tự khai báo nhé!;
Ảnh nhỏ thì nhấn mở hình ảnh trong tab mới nha
4...
begin
repeat
write('N= '):
readln(n);
until n>0;
s:=0;
for i:=1 to n do
s:=s+1/n;
write('s= ',s);
readln
end.
var i,n:integer;
Tong:real;
begin
write('nhap n=');readln(n);
Tong:=0;
for i:=1 to n do Tong:=Tong+1/(i*i);
write('ket qua la:',Tong);
readln
end.
program tinhtong;
uses crt;
var n,i:integer; s:real;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
for i:=1 to n do s:=s+(1/(i*i));
write('tong vua tinh la:',s:2:3);
readln;
end.
người mới vô có gì sai sót mong bỏ qua :)).
program bai1;
var i,n:longint;s:real;
begin
write('N= ');
readln(n);
s:=1;
for i:=2 to n do s:=s+1/i;
write('s= ',s);
readln
end.
Var i , x : integer;
S : real;
Begin
write (' x = '); read (x);
S:=0;
For i:=1 to x do S:= S+i;
Write (S);
Readln;
End.
program bai1;
var s,i,x:longint;
begin
write('x= ');
readln(x);
s:=1;
for i:=2 to n do
s:=s+1/i;
write('s= ',s);
readln
end.