Question

Даны натуральные числа a и b. требуется найти такое минимально возможное натуральное число k ≥ a, что сумма всех чисел от a до k больше b. для решения этой ученик написал программу, но, к сожалению, его программа неправильная. паскаль var a, b, s, k: integer; begin read(a,b); s : = 0; k : = a; while s < b do begin k : = k+1; s : = s+k; end; writeln(k) end. последовательно выполните следующее. 1. напишите, что выведет эта программа при вводе чисел 15 и 26. 2. пример значений a и b, при вводе которых программа выведет верный ответ. укажите этот ответ. 3. найдите в программе все ошибки (их может быть одна или несколько). для каждой ошибки выпишите строку, в которой она допущена, и эту же строку в исправленном виде. достаточно указать ошибки и их исправления для одного языка программирования. обратите внимание: вам нужно исправить программу, а не написать свою. вы можете только заменять ошибочные строки, но не можете удалять строки или добавлять новые. заменять следует только ошибочные строки: за исправления, внесённые в строки, не содержащие ошибок, будут снижаться.

Answer 1

Нашел 2 ошибки в 4- строке и 7- строке, объясняю на примере а=15, b=26
как я понял по данным задачи К больше или равно А то есть начальное значение S = A, вторую ошибку можно решить просто поменяв местами операторы 7-ой и 8-ой строки(чтобы сначала программа суммировала S=15+15 а потом уже 30+16,46+18...пока S<B а в задаче делается так 16+1,16+17, 30+18,...) в общем:
var a, b, s, k: integer;begin
read(a,b);
s := a;<
k := a;
while s < b do begins := s+k;<k := k+1;<end;writeln(k)end. 

если
a=15 b=36
ответ будет :15