K
Khách

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.

10 tháng 3 2023

program tinh_toan;

uses crt;

var S;i:integer;

begin

S:=0;

for i:=2 to 100 do S:=S+1/i;

writeln(S);

readln;

end.

11 tháng 3 2023

Var i,n:integer;

s:real;

Begin

Write('n = ');readln(n);

For i:=2 to n do s:=s+1/i;

Write('tong la ',s:10:2);

Readln;

End.

9 tháng 6 2021

uses crt;

var i,n:integer;

s:longint;

begin

  clrscr;

  write('nhap n:');readln(n);

  s:=0;

  for i:=1 to n do

  if i mod 2=1 then s:=s+i

  else s:=s-i;

  writeln('s= ',s);

  readln;

end.

25 tháng 3 2022

tham khảo

Program chuong_trinh_tinh_tong;
User crt;
var n,i:integer; 
S:real; 
begin; 
write('nhap n = '); 
readln(n); 
s:=0; 
for i :=1 to n do S :=S + 1/i; 
writeln('tong S = ',S:5:2); 
readln 
end.

25 tháng 3 2022

tham khảo

Program chuong_trinh_tinh_tong;
User crt;
var n,i:integer; 
S:real; 
begin; 
write('nhap n = '); 
readln(n); 
s:=0; 
for i :=1 to n do S :=S + 1/i; 
writeln('tong S = ',S:5:2); 
readln 
end.

6 tháng 3 2023

Program HOC24;

uses crt;

var i,n: integer;

s: real;

begin

clrscr;

write('Nhap n: '); readln(n);

s:=0;

for i:=1 to n do s:=s+1/(i*(i+1));

write('S= ',s:6:2);

readln

end.

7 tháng 3 2023

Còn lệnh while...do mình làm như thế nào ạ?

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.

7 tháng 11 2021

Program hoan_doi;

uses crt;

var x,y,temp:Integer;

 

begin

x:=3;y:=7;

Writeln('Gia tri cua x truoc khi doi: ',x);

Writeln('Gia tri cua y truoc khi doi: ',y);

temp:=x;

x:=y;

y:=temp;

Writeln('Gia tri cua x sau khi hoan doi: ',x);

Writeln('Gia tri cua y sau khi hoan doi: ',y);

Readln();

end.

Mô tả: Khai báo 3 biến kiểu số nguyên

-Ta gán 3 cho biến x, gán 7 cho biến y

-Sau đó gán giá trị của biến x cho biến temp (để lưu trữ giá trị của biến x);

-Ta gán giá trị của biến y cho biến x (lúc này giá trị của biến x đã bị đổi);

-Rồi gán giá trị của biến temp cho biến y (Giá trị không bị thay đổi theo biến x bởi vì trước khi thay đổi giá trị của biến x thành giá trị của biến y ta đã gán giá trị trước đó của biến x cho biến temp)

 

20 tháng 3 2022

tham khảo

 

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 10 do

t:=t+i;

writeln('Tong cac so tu nhien tu 1 toi 10 la: ',t);

readln;

end.

20 tháng 3 2022

refer

uses crt;

var i: integer;

begin

clrscr;

for i:= 1 to 10 do

begin writeln ( ' O ' ) end;

readln

end.

uses crt;

var n,s:integer;

begin

clrscr;

s:=0;

n:=0;

while s<=1000 do 

  begin

n:=n+1;

s:=s+n;

end;

writeln(s);

writeln(n);

readln;

end.

Đề thi cuối kì 1 đâyloading...  

30 tháng 12 2022

uses crt;

var i,s:longint;

begin

clrscr;

s:=1;

for i:=1 to 10 do

s:=s*i;

writeln(s);

readln;

end.

Câu 3: 

<phần khai báo>

{

<phần thân>

}