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

Question

Виктория Гришина

Информатика

27 октября, 01:45

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

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Дарья Фомина · Answer 1

Var a, b: Integer;

BEGIN

While b > = 0 do / / цикл работает, потому что по умолчанию переменные равны 0, условие работы цикла больше или равно 0, цикл закончится когда введется первое отрицательное число

begin

Readln (b); / / вводим число с клавиатуры

Inc (a); / / считаем его, переменная а - это количество введенных чисел

end;

Writeln (' Кол-во введенных чисел : ', a - 1); / / выводим ответ минус 1, потому что посчитается первое отрицательное число и его надо вычесть

END.