Счетчик не запоминает количество

[iquaker]

Задание: В компьютер вводится пары целых чисел. Подсчитать сколько среди них пар дающих в сумме число 13. Подсчет закончится после ввода пары нулей

Вот моя программа

var a,b,c:integer;
begin
  repeat
  writeln('Введите пару чисел');
  readln(a,b);
  c:=0;
  if a+b=13 then c:=c+1;
  until (a=0) AND (b=0);
  writeln('Пар в сумме дающих 13=',c);
end.

В ней я ввожу числа в сумме дающие 13, а она не запоминает их количество после того как я ввожу два нуля

В этой программе все получается

VAR a, b, c : Integer;
BEGIN
c:=0; {Обнуляем счетчик}
repeat
ReadLn (a,b); {Ввод пары чисел}
if a+b=13 then c:=c+1;
until (a=0) AND (b=0); {пока не введена пара нулей}
WriteLn(c);
ReadLn
END.

В чем может быть проблема?

[Вадим Мошев]

repeat
  writeln('Введите пару чисел');
  readln(a,b);
  c:=0; {Сброс числа в нуль внутри цикла!} 
  if a+b=13 then c:=c+1;
  until (a=0) AND (b=0);

Вы обнуляете счётчик внутри цикла. То есть, каждый раз, когда у вас попалась пара чисел, дающих в сумме 13, вы это количество снова сбрасываете в нуль.

Во второй программе счётчик обнуляется единожды и вне цикла, то есть, количество сохраняется