使用WHILE检查数字是否可被7 / Turbo Pascal整除

如何解决使用WHILE检查数字是否可被7 / Turbo Pascal整除

对不起，我不知道如何复制，所以我将不得不张贴图片。 基本上，对于我来说，我必须使用WHILE，我在某个地方犯了错误，但我似乎找不到它。 我对其进行了编译，然后运行它，输入5个数字（（2,14,9,7,1）），并且仅打印一个可被7除的数字。 [1]：https://i.stack.imgur.com/ykn2J.png [2]：https://i.stack.imgur.com/G5GAV.png 编辑：我有文字，所以你不必检查

Program Divisible;
var n,s,i,x:integer;
begin
writeln('How many numbers will you type');
read(n);
begin
s:=0;
I:=1;
end;
while I < n do
begin
writeln('What are those numbers?');
read(x);
If x mod 7 =0 then
begin
s:=x+0;  /help
end;
I:=I+1;
     end;
     writeln('Numbers divisible by 7 are');
writeln(s);
   end.

解决方法

首先，您需要将I声明为0，因为如果数字的数量为1，它将退出。另外，您是直接存储数字，而不是计算被7整除的数字。

doc.data().email

如果您需要显示每个数字，则需要声明一个数组并将数字写入其中，因为以前您在每个循环中都覆盖了最后一个数字。