主页 / 问题 / 1097430
Accepted
Эдуард Ван
Asked:2020-03-21 01:32:05 +0800 CST2020-03-21 01:32:05 +0800 CST

帮助输出 10 而不是 30 [关闭]

  • 772

在此处输入图像描述

最后输出应该是 10，而不是 30

var
k,i:integer;
begin
readln(i);
k:=0;
for i:= 10 to 99 do begin 
if (i mod 3=0) then k:=k+1; end; write(k)

end.
pascal

1 个回答

  1. Best Answer

    for 循环必须达到 39 ，然后它将是 10

    k,i:integer;
begin
readln(i);
k:=0;
for i:= 10 to 39 do begin 
if (i mod 3=0) then k:=k+1; end; write(k)

end.
    • 0

相关问题