主页 / 问题 / 1117970
Accepted
Ilya Filimonov
Asked:2020-04-30 05:27:48 +0000 UTC2020-04-30 05:27:48 +0000 UTC

Pascal ABC，使用 While 编写程序并重复

  • 772

请帮助我 需要编写一个程序，从键盘询问数字，直到输入的数字大于数字的总和或数字的数量不超过 10 这是编写的代码但由于某种原因它忽略了条件如果输入的数字超过数字的总和，则完成程序 如果您知道原因，请提供帮助

program Project1;
var
  Chislo: real;
  Count: longint;
  sum: real;
begin
  Count:= 0;
  {sum:= 0;}
  writeln('Введите числа: ');
  repeat
    readln(Chislo);
    inc(Count);
    sum:= sum + chislo;
  until (Chislo > sum) or (Count > 10);
  writeln('Программа закончила работу, сумма:',sum);
  readln;
end.
pascal

1 个回答

  1. Best Answer
    sum := 0;
writeln('Введите числа: ');
repeat
  sum := sum + chislo;
  readln(Chislo);
  inc(Count);
until ( (Chislo > sum) and (Count > 1) ) or (Count > 10);
    • 0

相关问题