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.

26 tháng 3 2023

Em tham khảo nhé.

Đây là chương trình tìm tổng A:

```
var n, A: real;
  
write('Nhap vao so n: ');
readln(n);
  
A := 0;
  
for var i := 1 to Round(n) do
begin
  A := A + 1/i;
end;
  
writeln('Tong A la: ', A:0:2);
```

Giải thích chương trình:

1. Sử dụng lệnh `readln` để nhập giá trị `n` từ bàn phím.
2. Khởi tạo biến `A` là 0.
3. Sử dụng vòng lặp `for` để tính tổng từ 1 đến `n`.
4. Cộng giá trị của 1/i vào biến `A`.
5. In ra giá trị của `A` với độ chính xác 2 chữ số thập phân bằng lệnh `writeln`.

 

 

1 tháng 4 2022

Program HOC24;

var i,n: integer;

S: real;

begin

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

s:=0;

for i:=1 to N do s:=s+1/i;

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

readln

end.

uses crt;

var s,p,i,n:integer;

begin

clrscr;

readln(n);

s:=0;

p:=1;

for i:=1 to n do 

begin

s:=s+i;

p:=p*i;

end;

writeln(s);

writeln(p);

readln;

end.

8 tháng 3 2023

program tinhtong;

var n,i : integer;

S : real;

begin

write('Nhap n: ');

readln(n);

i:=1;

S:=0;

while i<=n do

begin

S:=S+1/i;

i:=i+1;

end;

writeln('Tong S= ',S);

readln;

end.

24 tháng 3 2023

program tinh_tong_S;

var
  n, i: integer;
  S: real;

begin
  write('Nhap n: ');
  readln(n);
  
  S := 0;
  i := 1;
  
  while i <= n do
  begin
    S := S + 1 / i;
    i := i + 1;
  end;
  
  writeln('Tong S la: ', S:0:2);
  
  readln;
end.

7 tháng 3 2023

*while..do

Program HOC24;

var i,n: integer;

s: real;

begin

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

i:=1;

while i<=n do

begin

s:=s+1/sqr(i);

i:=i+1;

end;

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

readln

end.

7 tháng 3 2023

*for..do

Program HOC24;

var i,n: integer;

s: real;

begin

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

s:=0;

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

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

readln

end.

29 tháng 3 2022

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.

7 tháng 3 2023

Program HOC24;

var i,n: integer;

S: longint;

begin

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

i:=1; s:=0;

while i<=n do

begin

s:=s+i;

i:=i+2;

end;

write('S=',S);

readln

end.

24 tháng 3 2023

program tinh_tong_S;

var
  n, i, S: integer;

begin
  write('Nhap n: ');
  readln(n);
  
  S := 0;
  i := 1;
  
  while i <= n do
  begin
    S := S + i;
    i := i + 2;
  end;
  
  writeln('Tong S la: ', S);
  
  readln;
end.

11 tháng 4 2023

Cách 1 dùng lệnh for do:

Uses crt;

var i,n,k: integer;

begin clrcsr;

readln(n);

for i:=1 to n do begin

if(i mod 2=0) and (i>=10) then k:=k*i;

end;

writeln(k);

readln;

end.

Cách 2 dùng lệnh while do

Uses crt;

var m,n,o: integer;

begin clrcsr;

readln(n);

o:=1;

m:=1;

while (m<n) do begin

m:=m+1;

if(m mod 2=0) and (m>=10) then o:=o*m;

end;

writeln(o);

readln;

end.

14 tháng 5 2023

var i,n,s:longint;

begin 

read(n); if n<2 then break;

for i:=3 to n do s:=s+i;

write(s);

end.

15 tháng 5 2023

Var i,n:integer;

t:longint;

Begin

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

i:=2;

While i<=n do

Begin

t:=t+i;

i:=i+1;

End;

Write('Tong la ',t);

Readln

End.

20 tháng 3 2023

Var i,n:integer;

s:longint;

Begin

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

For i:=1 to n do

s:=s + 2*i;

Write('Tong la ',s);

Readln;

End.