Есть ответ 👍

Матроскин купил Р пакетов молока и хочет разместить их на двух полках холодильника. На одну полку влезает не более 5 пакетов. Разработать программу, которая вводит Р и выводит все раскладки пакетов. Например, если Р=8, программа должна вывести: СВЕРХУ: 3 СНИЗУ: 5 СВЕРХУ: 4 СНИЗУ: 4 СВЕРХУ: 5 СНИЗУ: 3, а если Р=13, выведено будет «НЕ ПОМЕСТИТСЯ».
Visual basic

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

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


Var a: array[1..999999] of integer; i,k,n: integer; begin readln(n); for i: =1 to n do begin read(a[i]); if a[i]< 0 then k+=1; end; writeln(k); end.

Популярно: Информатика