乘法/除法问题

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，而不是实数除法/。