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.

30 tháng 3 2017

Đáp án B

5 tháng 4 2017

Đáp án D

22 tháng 11 2017

cho biến i chạy từ 1 đếm 1000

3 tháng 4 2022

PROGRAM Ten_KTGK_DTNT_Buon_Ho;

VAR i: Real;

S: integer;

Begin

S := 0;

For i := 1 To 20 Do

S:= S+i;

Write (‘Tong S =’ , S);

End.

25 tháng 3 2022
16 tháng 3 2023

S từ đâu ra vậy ? 

 

16 tháng 3 2023

Program Tong__nghich__dao;

Var

n,i:real;

S:Integer;

Begin

Write('Nhap n=');Readln(n);

S:=0;

For i:=1 to n do S:=S+1/i;

Write('Tong can tim la: ', S:6:2);

Readln;

End.

16 tháng 3 2023

:v

6 tháng 3 2023

Bài 1

Lỗi:

1) Program bai 1; => sửa: Program bai1;

2) Var x; n: integer; => sửa: Var x, n:integer;

3) X = 12 => sửa: x:=12;

-------------------

Bài 2

Lỗi

1) Program 2bai; => sửa: Program bai2;

2) Var i, n, s:integer;

3) S:=0 => sửa S:=0;

4) For i:=0,5 to n do => sửa: For i:=1 to 5 do

5) S=S+i; => sửa: S:=S+i;