счетчик

[Fryg]

Столкнулся опять с проблемой... в самоучители не рассказывается по этой тме практически ничего.... помогите решить:



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

[Pein95]

а если сделать так:

var
a,k,n,i,j,s:integer;
....
k:=0;
for i:=a to n do
for j:=k to n do
if i+j=13 then k:=k+1;

[Fryg]

попробовал сам вот в каком виде получилось

var
 n,a,b,i,k :integer;

begin
 k:=0;
  writeln('Napishite kol-vo par');
   readln(n);
  writeln('Vvedite pari');
   for i:=1 to n do begin
    readln(a,b);
    if a+b=13 then k:=k+1;
   end;
    writeln('Kol-vo par s summoy 13 - ',k);
   readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Alex11223]

writeln('Napishite kol-vo par');

Подсчет закончить после ввода пары нулей

Тут надо while использовать и какой-нибудь "флаг", типа boolean, например. Или просто break если оба числа = 0 после ввода.

[Serge_Bliznykov]

Alex11223, +1

ну или использовать цикл с постусловием (repeat ... until)
например:

var
 a,b,k :integer;
begin
 k:=0;
 repeat
   writeln('Vvedite pari (0 0 - dlya vyhoda ) ');
   readln(a,b);
   if a+b=13 then k:=k+1;
 until (a=0) and (b=0);
 writeln('Kol-vo par s summoy 13 - ',k);
 readln;
end.

[Fryg]

точно.... спс невнимательно прочитал задачу

[hon]

Сообщение от Fryg

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

Учишься по "Турбо Паскаль 7.0 Самоучитель для школьников, студентов и начинающих"?
Я решал эту задачу.

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