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

226

485

Посмотреть ответы 1

Ответы на вопрос:

Daniilkan

Информатика

4,7(28 оценок)

Можно, долго не размышляя, решить методом "тупого перебора". program specialhappytickets; var i, j, k, l, m, n, s: integer; begin s : = 0; for i : = 0 to 9 do for j : = 0 to 9 do for k : = 0 to 9 do for l : = 0 to 9 do for m : = 0 to 9 do for n : = 0 to 9 do if (i + j + k) = (l + m + n) then if i + j + k = 13 then s : = s + 1; writeln(s) end. результат выполнения программы: 5625