Есть ответ 👍

Максимальная скорость передачи информации по качественной коммутируемой телефонной линии может​

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

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


Var       n, s, i: integer;       x: array[1..100]of integer; begin       writeln('введите кол-во купюр, их значения и необходимую сумму');       readln(n);       for i : = 1 to n do               read(x[i]);       readln(s);             for i : = n downto 1 do       begin               if s div x[i] > 0 then                       write(s div x[i], '*', x[i], ' ');               s : = s mod x[i];       end;             if s < > 0 then               writeln('no') end.

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