Theo quy ước đặt tên của Pascal, em hãy chỉ ra lệnh nào hợp lệ
A.Chươngtrình B.Chương_trình C.Chuongtrinh D._Chươngtrình
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`.
TN
0
HQ
0
HV
6 tháng 3 2023
program bang_nhan;
uses Crt;
var i,n:Integer
begin
clrscr;
n:=7;
for i:=1 to 10 do
WriteLn(n,'x',i:2,'=',n*i:3);
Readln
end.
NT
9 tháng 3 2023
Program cuu_chuong_7;
Var;
i : interger;
k : interger;
Begin;
for i := 1 to 10 do:
k := 7;
writeln (k, “x”, i, “=”, k * i);
End;
Chọn C