Question

Составить программу рассчитывающую количество чисел введённых с клавиатуры до первого нуля паскаль

Answer 1

Ответ:

pascal

Объяснение:

var a, k: integer;

begin

 repeat

   Write('Введите число: '); ReadLn(a); inc(k);

 until a = 0;

 WriteLn('Количество введенных чисел = ', k - 1);

end.