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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
H9
HT.Phong (9A5)
CTVHS
13 tháng 3 2023
Program câu 1;
Var n: Integer; s:real;
Begin
Writeln(‘ Nhap gia tri n=’); Readln(n);
S:=0;
While n<0 do
begin
s:=s+n/2; n:=n-1;
end;
write(‘tong s = ‘, s:8:2);
Readln;
End.
ML
13 tháng 3 2023
Lỗi sai:
Program câu 1; -> Tên chương trình không chứa dấu cách trắng.
-> Sửa: Program cau_1;
Writeln(‘ Nhap gia tri n=’); Readln; -> Nhập giá trị cho n nhưng thiếu lệnh đọc n
-> Sửa:
Writeln(‘ Nhap gia tri n=’); Readln(n);
While n >0 do
s:=s+n/2; n:=n-1;
Cả 2 câu lệnh s:=s+n/2; n:=n-1; đều nằm trong vòng lặp while..do nên cần begin...end con.
-> Sửa
While n >0 do
begin
s:=s+n/2; n:=n-1;
end;
M
3
A
19 tháng 3 2021
Cú pháp:
For < biến đếm >:= < giá trị đầu > to < giá trị cuối > do
< câu lệnh >;
Trong đó:
FOR, TO, DO: là từ khóa.Biến đếm: thuộc kiểu dữ liệu số nguyên.Giá trị đầu, giá trị cuối: là giá trị nguyên.Câu lệnh: có thể là câu lệnh đơn hay câu lệnh ghép.Ý nghĩa:
Khi thực hiện, biến đếm sẽ nhận giá trị là giá trị đầu, sau mỗi vòng lặp, biến đếm sẽ tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối thì dừng lại.
TH
2
KV
2 tháng 5 2023
Var a:array[1..1000] of integer;
s:longint;
i,n:integer;
Begin
s:=1;
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i);readln(a[i]);
s:=s*a[i];
End;
Write('Tich la ',s);
Readln
End.
2 tháng 5 2023
program TinhTich;
var n, i, tich: integer;
begin
write('Nhap vao n: ');
readln(n);
tich := 1;
for i := 1 to n do
tich := tich * i;
writeln('tich cua ', n, ' so tu nhien dau tien la: ', tich);
readln;
end.