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