Склавиатуры вводятся числа , пока не будет введено отрицательное число. подсчитать количество чисел. (решение ниже) var a,b: integer; begin while b> =0 do begin readln(b); inc(a ); end; writeln('кол-во введенных чисел : ',a-1); end. объясните что к чему? откуда a и b? ведь обрабатывается одновременно только 1 вводимое число, затем 2-е и т.д.
а - это счетчик этих неотрицат. чисел (т.е. нулей и положит. чисел), формат команды inc (a) показывает, что происходит увеличение переменной а ровно на единицу.