Pascal требуется посчитать сумму целых чисел, расположенных между числами 1 и n включительно. входные данные в единственной строке входного файла input.txt записано единственное целое число n, не превышающее по абсолютной величине 10^4. выходные данные в единственную строку выходного файла output.txt нужно вывести одно целое число — сумму чисел, расположенных между 1 и n включительно. моё решение: var n, i, s, z: longint; begin assign(input, 'input.txt'); reset(input); assign(output, 'output.txt'); rewrite(output); z: =0; s: =0; read(n); begin if n< =z then exit; end; for i : = 1 to n do s+=i; write(s); end. но код не принимает система, что может быть не так? ps: // но сложность этой не в вычислении этой суммы и выше алгоритм не проходит на третьем тесте! оказывается, здесь внимательно нужно прочитать условия , особенно ограничения на число n. дело в том, что это число может быть ! учитывая это попробуйте самостоятельно доработать и реализовать верный алгоритм решения этой . upd: забыл условие поставить,что n не должно превышать 10^4 upd2: исправил ошибки, учёл что n< 10000, но все равно " решена неверно" код: var n, i, s, z: longint; begin assign(input, 'input.txt'); reset(input); assign(output, 'output.txt'); rewrite(output); z: =0; s: =0; read(n); begin if n< =z then exit; end; if n< =10000 then for i : = 1 to n do s+=i else exit; write(s); end.

ВенераРезанова    2   27.09.2019 02:30    16