С клавиатуры вводятся числа , пока не будет введено отрицательное число. Подсчитать количество чисел. (решение ниже) Var a,b: Integer; BEGIN While b>=0 do begin Readln(b); Inc(a ); end; Writeln('Кол-во введенных чисел : ',a-1); END. Объясните что к чему? Откуда a и b? Ведь обрабатывается одновременно только 1 вводимое число, затем 2-е и т.д.

Предыдущий
вопрос Следующий
вопрос

В данном коде переменные a и b объявлены как целочисленные (Integer) и используются для подсчета количества введенных чисел (a) и для хранения значения введенного числа (b).

Цикл While выполняется до тех пор, пока введенное число (b) больше или равно нулю. При каждой итерации цикла программа считывает ввод пользователя (Readln(b)), увеличивает счетчик чисел (Inc(a)) и затем повторяет цикл со следующим введенным числом.

После завершения цикла программа выводит количество введенных чисел, отняв единицу (a-1), так как при вводе отрицательного числа цикл прекращается, но отрицательное число учитываться не должно.

Таким образом, переменные a и b используются для ответственности за подсчет чисел и хранение текущего ввода, соответственно.