主页 / 问题 / 1132425
Accepted
Ilya Filimonov
Asked:2020-05-28 00:45:41 +0800 CST2020-05-28 00:45:41 +0800 CST

编写一个程序，要求两个整数求和。打印总和最小的数字[关闭]

  • 772

执行程序时，不需要重新输入求和的数字，先输入两个数字，然后不清楚程序是如何执行的。

Var a,b,N, max, next, k: integer;Begin
      Write('Введите количество чисел'); Readln(n);
       write('Введите число a: '); read(a);
       write('Введите число b: '); read(b); 
      Write('Сумма чисел: ',a+b); Readln(max);
      k:=1;
      repeat
        write('Введите число a: ',a); Readln(next);
        write('Введите число b: ',b); Readln(next);
        K:=k+1;
        If next>max then max:=next
      Until k=n;
      Writeln(max);
      Readln
    End.
циклы

1 个回答

  1. Best Answer

    始终格式化代码，更容易理解和查找错误。

    program test;

var
  a, b, N, max, Next, k: integer;
begin
  write('Введите количество чисел');
  readln(n);

  write('Введите число a: ');
  read(a);

  write('Введите число b: ');
  read(b);

  write('Сумма чисел: ', a + b);

  readln(max);

  k := 1;
  repeat
    write('Введите число a: ', a);
    readln(Next);

    write('Введите число b: ', b);
    readln(Next);

    K := k + 1;
    if Next > max then
      max := Next
  until k = n;

  writeln(max);

  readln;
end.

    显示数字总和后出现问题writeln('Сумма чисел: ', a + b);。从代码中可以看出这是输入的标头，但这只是一个输出。因此，输入max没有评论，似乎程序已挂起。

    我想这个地方readln(max);应该是相反max := a + b的。

    • 0

相关问题