С клавиатуры вводятся числа , пока не будет введено отрицательное число. Подсчитать количество чисел. (решение ниже)
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) показывает, что происходит увеличение переменной а ровно на единицу.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
