Question

Дана непустая последовательность чисел оканчивающаяся нулем. Найти: а) сумму всех чисел последовательности, б) кол-во всех чисел последовательности.решить через Pascal ABC через repeat,for или while

Answer 1

Var
a, s, n: integer;
begin
n:=0; s:=0;
repeat
readln(a);
inc(n);
inc(s, a);
until a = 0;
writeln('Сумма: ', s);
writeln('Количество: ', n);
end.

Answer 2

Конечно, давайте решим эту задачу на Pascal ABC с использованием цикла `repeat` и `while`. Предположим, что ваша последовательность чисел представлена в виде массива. Вот пример кода:

program SumAndCount;

var
  sequence: array [1..100] of Integer;  // Максимальная длина последовательности - 100
  num, sum, count: Integer;

begin
  // Вводим последовательность чисел, оканчивающуюся нулем
  writeln('Введите последовательность чисел, оканчивающуюся нулем:');
  num := 0;
  count := 0;
  
  repeat
    // Введите число
    write('Введите число (0 для завершения): ');
    readln(num);
    
    // Проверяем, чтобы число не было равно 0 (завершающий элемент)
    if num <> 0 then
    begin
      // Добавляем число к сумме
      sum := sum + num;
      
      // Увеличиваем счетчик чисел
      count := count + 1;
    end;
  until num = 0;

// Выводим результаты
  writeln('Сумма чисел последовательности: ', sum);
  writeln('Количество чисел в последовательности: ', count);

end.

Этот код просит пользователя ввести числа до тех пор, пока не будет введен 0. Каждое введенное число (кроме 0) добавляется к сумме, и счетчик увеличивается. Когда вводится 0, программа выводит сумму и количество чисел в последовательности.