j:=1;k=2 For i:=1 to 5 do Begin J:=j+1 K:=k+j Writeln(j,k); End. A.20 B.21 C.22 D.23 Tự luận là nêu cú pháp câu lệnh lặp và chú thích từng thành phần
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.
Những câu hỏi liên quan
26 tháng 1 2021
a) Chương trình bị lỗi
b) Chương trình bị lỗi
c) Chương trình bị lỗi luôn
L
1
NH
1
ML
24 tháng 3 2022
B sửa lại đề nhé.
for i:=1 to 6 do
begin j:=j+1; k:=k+j; end;
____________________
j=2; k=3;
Vòng lặp thứ nhất: i=1, j=j+1=2+1=3; k=k+j=3+3=6
Vòng lặp thứ hai: i=2; j=j+1=3+1=4; k:=k+j=6+4=10
Vòng lặp thứ ba: i=3; j=j+1=4+1=5; k=k+j=10+5=15
Vòng lặp thứ 4: i=4; j=j+1=5+1=6; k=k+j=15+6=21
Vòng lặp thứ 5: i=5; j=j+1=6+1=7; k=k+j=21+7=28
Vòng lặp thứ 6: i=6; j=j+1=7+1=8; k=k+j=28+8=36
Vậy j=8; k=36
29 tháng 3 2023
Sửa lại:
program fashkfs;
uses crt;
var n, i,j,m: longint;
a, b: array[1..1000] of integer;
begin
clrscr;
readln(n, m);
for i := 1 to m do
begin
read(a[i]);
end;
b[0] := 1;
for i := 1 to m do
begin
for j := 1 to n do
begin
if (b[j - a[i]] <> 0) and (a[i] <= j) then
begin
b[j] := b[j] + b[j - a[i]];
end;
end;
end;
writeln(b[n]);
readln;
end.
Đề thiếu bạn kiểm tra lại nhé