Question

Pascal цикл while Последовательно вводятся числа, найти их сумму. Ввод остановить после ввода второго нуля.

Answer 1

Var a,s,k:integer;
begin
writeln('Вводите числа:');
k:=0;
while k<2 do
 begin
 readln(a);
 s:=s+a;
 if a=0 then k:=k+1;
 end;
writeln('s = ',s);
end.

Пример:
Вводите числа:4
9
5
0
1
3
2
0
s = 24

Answer 2

Конечно, вот пример программы на Pascal, которая выполняет описанную вами задачу с использованием цикла while:

pascalCopy code
program SumUntilTwoZeros;
var
  num, sum: integer;
begin
  sum := 0;
  
  writeln('Введите числа. Ввод завершится после ввода двух нулей.');
  
  while true do
  begin
    write('Введите число: ');
    readln(num);
    
    if num = 0 then
      break; // Выход из цикла, если введен 0
      
    sum := sum + num; // Прибавляем введенное число к сумме
  end;
  
  writeln('Сумма введенных чисел: ', sum);
end.

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