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.

15 tháng 11 2017

hình như ct bạn viết sai a

12 tháng 10 2019

chương trình sai rồi nhé bạn

31 tháng 3 2022

Tổng các số từ 1 đến 1000

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

S từ đâu ra vậy ? 

 

18 tháng 3 2021

Giúp mình vs

18 tháng 3 2021

a) tính tổng các số chẵn từ 1 đến 50
b)
  (3): lệnh viết kq của ct trên.
  (4):lệnh in ra màn hình kq của bài toán.
  (5):lệnh kết thúc ct.

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.

thực hiện công việc nhập n số từ bàn phím

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;

30 tháng 3 2017

Đáp án B

5 tháng 4 2017

Đáp án D

Sửa đề: S:='hong';

Đoạn chương trình thực hiện chương trình chèn xâu s1 vào xâu s