Помогите! Безотлагательно! Программка на паскале!Отыскать количество пар двузначных чисел сумма которых

Question

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

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Любовь Пирюшкина · Answer 1 · 2019-05-30 20:57:37+3:00

Любовь Пирюшкина 2019-05-30 20:57:37

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

Артём 2019-05-30 20:59:32

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

Шомади Олежка 2019-05-30 21:03:40

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

Данил Самкаев 2019-05-30 21:13:22

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.

Мирослава Жигора 2019-05-30 21:18:47

Можно записать одним циклом. 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.

Васька 2019-05-30 21:27:48

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

Данька Кузьминский 2019-05-30 21:33:29

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