乘法/除法问题

Question

我正在尝试编写一个程序，它会在没有重置的情况下对相同的变量进行乘法/除法（对不起，如果没有得到很好的解释）。如果我想要的话，我会展示一个例子

var
selection:integer

writeln ('Select a number');
readln (selection);
writeln (selection*10);
writeln (selection/5);

我想要的是将选择变量乘以10，然后除以5.如果用户输入5，它将乘以10，然后除以5.所以我应得到5 * 10 = 50，然后50/5 = 10。但相反它会分别做5 * 10，然后是5/5。我怎么做才能做乘法，然后除乘乘法得到的新数？

Answer 1

您没有修改变量。你需要这样写：

selection := selection * 10;
writeln(selection);
selection := selection div 5;
writeln(selection);

另请注意，您需要使用整数除法div，而不是实际除法/。