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.

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.

31 tháng 3 2022

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

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;

uses crt;

var i:integer; s:real;

begin

clrscr;

s:=1;

for i:=1 to 10 do s:=s*1/i;

writeln(s:4:2);

readln;

end.

16 tháng 3 2022

cám ơn

11 tháng 5 2023

Chương trình thiếu cậu ơi, thêm vào ạ

uses crt;

var i,n,s:integer;

begin

clrscr;

readln(n);

s:=0;

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

writeln(s);

readln;

end.

uses crt;

var i,n,s:integer;

begin

clrscr;

readln(n);

s:=0;

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

writeln(s);

readln;

end.

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

30 tháng 3 2017

Đáp án B

5 tháng 4 2017

Đáp án D