主页 / 问题 / 1107278
Accepted
Максим Филимонов
Asked:2020-04-08 19:35:42 +0800 CST2020-04-08 19:35:42 +0800 CST

代码中的错误是什么？运行时错误：输入字符串格式不正确。您需要输入一个数字，整数部分为 3 位，小数部分为 4 位

  • 772
var x, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11: integer;
begin
read(x);
x1 := trunc(x);
x2 := x1 div 100;
x3 := x1 div 10 mod 10;
x4 := x1 mod 10;
x5 := x2 + x3 + x4;
x6 := x - x1;
x7 := x6 div 1000;
x8 := x6 div 100 mod 10;
x9 := x6 div 10 mod 10;
x10 := x6 mod 10;
x11 := x7 + x8 + x9 + x10;
writeln(x5);
writeln(x11);
end.
pascal

1 个回答

  1. Best Answer
    var
  x: double;
  x1, x2, ...
begin
  ...
  x6 := trunc((x - x1) * 10000);
  ...
    • 2

相关问题