N = число в десятичной системе
res = пустая строка
WHILE n не равно 0:
res = привести в строку(остаток от деления n на 2)+res
n = n/2 (нужно делить без остатка Например: (3/2)= 1)
ЗАКОНЧИТЬ WHILE
вывести res
Function max(a As Double, b As Double) As Double
Dim i, j, k, l As Integer
k = Sgn(a - b)
l = k * k
i = l * (l + k) / 2
j = l * (l - k) / 2
max = a * i + b * j
End Function
Function min(a As Double, b As Double) As Double
Dim i, j, k, l As Integer
k = Sgn(b - a)
l = k * k
i = l * (l + k) / 2
j = l * (l - k) / 2
min = a * i + b * j
End Function
Excel VBA
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var Bnk:=Arr(500,100,50,10);
var s:=ReadInteger('Сдача, руб:');
var Kol:=Arr(0,0,0,0);
for var i:=0 to 3 do begin
Kol[i]:=s div Bnk[i];
s:=s mod Bnk[i]
end;
if s<>0 then Writeln('Сдачу дать невозможно')
else begin
Writeln('Следует дать:');
for var i:=0 to 3 do
Writeln('банкнот по ',Bnk[i],' руб - ',Kol[i],' шт.')
end
end.
<u><em>Тестовое решение:</em></u>
Сдача, руб: 850
Следует дать:
банкнот по 500 руб - 1 шт.
банкнот по 100 руб - 3 шт.
банкнот по 50 руб - 1 шт.
банкнот по 10 руб - 0 шт.