Những câu hỏi liên quan
TH
Xem chi tiết
ML
7 tháng 3 2023 lúc 17:08

Đề sai đúng không, bạn kiểm tra lại đề nhé, mình không thấy quy luật gì trong dãy tổng của S cả

Bình luận (1)
ML
7 tháng 3 2023 lúc 17:36

FOR..DO

Program HOC24;

var i,n: integer;

s: longint;

begin

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

S:=0;

For i:=1 to N do if i mod 2=0 then S:=S+i;

write('S = ',S);

readln

end.

Bình luận (0)
ML
7 tháng 3 2023 lúc 23:02

While..do

Program HOC24;

var i,n: integer;

s: longint;

begin

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

S:=0; i:=2;

while i<=n do 

begin

s:=s+i;

i:=i+2;

end;

write('S = ',S);

readln

end.

Bình luận (0)
NT
Xem chi tiết
PG
7 tháng 3 2023 lúc 19:46

var n, s, i: integer;

begin

       write('Nhap n = ');

       readln(n);

       s := 0;

       i := 3;

       while i <= n do

       begin

              s := s + i;

              i := i + 3;

       end;

       writeln('Tong la ', s);

       readln;

end.

Bình luận (0)
ND
24 tháng 3 2023 lúc 10:31

program tinh_tong_S;

var
  n, i, S: integer;

begin
  write('Nhap n: ');
  readln(n);
  
  S := 0;
  
  for i := 3 to n step 1 do
  begin
    if i mod 2 = 0 then
      S := S + i;
  end;
  
  writeln('Tong S la: ', S);
  
  readln;
end.

Bình luận (0)
NK
Xem chi tiết
NH
26 tháng 3 2023 lúc 19:49

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`.

 

 

Bình luận (0)
H24
Xem chi tiết
LM
Xem chi tiết
NT
15 tháng 5 2022 lúc 13:45

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.

Bình luận (0)
MC
Xem chi tiết
HL
14 tháng 5 2023 lúc 12:32

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.

Bình luận (0)
KL
15 tháng 5 2023 lúc 7:51

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.

Bình luận (0)
TN
Xem chi tiết
ML
1 tháng 4 2022 lúc 11:26

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.

Bình luận (0)
VP
Xem chi tiết
NT
9 tháng 3 2023 lúc 15:01

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,t=0;

cin>>n;

for (int i=1; i<=n; i++)

if (i%6==0) t+=i;

cout<<t;

return 0;

}

Bình luận (0)
TP
Xem chi tiết
KL
29 tháng 3 2022 lúc 8:33

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.

Bình luận (0)