Помогите! Срочно! Программа ** паскале! Найти количество пар двузначных чисел сумма...

Question

Помогите! Срочно! Программа на паскале!
Найти количество пар двузначных чисел сумма которых не превысит 100

Answer 1

Var
  a, b, k: integer;
Begin
  k := 0;
  For a:= 10 to 99 do
    For b:= 10 to 99 do
      if (a+b <= 100) then<br>        k := k+1;
  WriteLn('k = ',k)
End.

Comments

Спасибо огромное)))

---

Двойной счет получается, например, a=20, b=40 и a=40, b=20 - а это одна пара. К тому же, если а=b, то это уже не пара.

---

var i,j,n: integer;
begin
n:=0;
for i:=10 to 90 do
for j:=i+1 to 100-i do inc(n);
writeln(n);
end.

---

Можно записать одним циклом. var i,n,s: integer;
begin
n:=0; s:=0;
for i:=49 downto 10 do
begin
n:=n+2;
s:=s+n;
end;
writeln(s);
end.

---

Или как сумму n членов арифметической прогрессии a0=2, d=2, n=40, сумма = (2*a0+(n-1)*d)*n/2 = (4+78)*20=82*20=1640.

---

Да, двойной счёт, а чего ж нарушение не отметите? Но не понимаю, почему "если а=b, то это уже не пара"...