Question

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

Answer 1

Ответ:

pascal

Объяснение:

var a, k: integer;

begin

 repeat

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

 until a = 0;

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

end.

Answer 2

Для решения этой задачи в Pascal можно использовать следующую программу. Она будет считывать числа с клавиатуры до тех пор, пока не встретит первый ноль, и затем выведет количество введенных чисел:

pascalCopy code
program CountNumbers;
var
  num, count: integer;
begin
  count := 0; // Инициализируем счетчик нулем
  
  writeln('Введите числа. Для завершения введите 0.');
  
  repeat
    readln(num); // Считываем число с клавиатуры
    if num <> 0 then
      count := count + 1; // Увеличиваем счетчик, если число не равно нулю
  until num = 0; // Продолжаем цикл, пока не встретим ноль

  writeln('Количество введенных чисел: ', count);
end.

Эта программа будет запрашивать числа с клавиатуры до тех пор, пока не будет введен ноль, и подсчитывать количество введенных чисел, исключая ноль.