cho đoạn chương trình
Readln(M);
T:=0; j:=1;
while j<=M do
Begin
if j div 5>=1 the T:=j; j:=j+1;
vòng lặp kết thúc khi
A) j
B) j>M
C) j>=M
D) j=M
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.
Sửa đề:
m:=5;
for i:=4 to 10 do m:=m+i;
Biến đếm i tăng lên 1 đơn vị bắt đầu từ giá trị đầu là 4 và kết thúc khi i=10.
Vậy giá của của m = 4 + 4 + 5 + 6 +7 + 8 + 9 + 10 = 53
Sửa đề:
m:=5;
for i:=4 to 10 do m:=m+i;
Biến đếm i tăng lên 1 đơn vị bắt đầu từ giá trị đầu là 4 và kết thúc khi i=10.
Vậy giá của của m = 5 + 4 + 5 + 6 +7 + 8 + 9 + 10 = 54
const fi='supseq.inp';
fo='supseq.out';
var f1,f2:text;
i,j,n,k,dem,m,max,max2,x:longint;
a:array[1..100]of integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n,k);
{----------------------------------}
for i:=1 to n do
begin
read(f1,x);
a[i]:=x;
end;
{---------------------------------}
writeln;
max:=0;
dem:=0;
for i:=1 to n do
if (a[i] mod k=0) and (a[i+1] mod k=0) then inc(dem)
else begin
if max<dem then max:=dem;
dem:=0;
end;
if max<dem then max:=dem;
writeln(f2,max);
close(f1);
close(f2);
end.
Chọn D