Покупатель должен заплатить в кассу s р. у него имеются 1, 2, 5, 10, 50, 100, 500 р. сколько купюр разного достоинства отдаст покупатель, если он начинает платить с самых крупных? на vba , без массивов
Begin writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b);
if (a<0) and (b<0) then Begin a:=a+2; b:=b+2; writeln('a = ',a); writeln('b = ',b); end else if (a>0) and (b<0) then writeln('a*b = ',a*b) else if (a<0) and (b>0) then writeln('b-a = ', b-a)
//PascalABC //NaaMan var N, sum, num, i : integer; A : array[1..10000] of integer; SA : real; begin write('Укажите, сколько будет чисел > '); readln(N); write('Вводите элементы массива > '); // Обнуляем сумму sum := 0; // и количество искомых элементов num := 0; // Ввод элементов массива с одновременным подсчетом for i := 1 to N do begin // Ввод readln(A[i]); write('Ещё > '); // Если введённое нечётное, то if A[i] mod 2 = 1 then begin // добавляем к сумме sum := sum + A[i]; // и считаем их количество num := num + 1; end; // Это среднее арифметическое SA := sum / num; end;
writeln('Сумма элементов ', sum); writeln('Среднее арифметическое ', SA); end.
Private Sub CommandButton1_Click()
Dim s As Integer, z As Integer
Dim t As String
t = "Для оплате в кассе необходимы:"
s = CInt(InputBox("Введите сумму оплаты"))
Do While s > 0
If s >= 500 Then
s = s - 500: k = k + 1
ElseIf s >= 200 Then
s = s - 200: m = m + 1
ElseIf s >= 100 Then
s = s - 100: n = n + 1
ElseIf s >= 50 Then
s = s - 50: z = z + 1
ElseIf s >= 10 Then
s = s - 10: v = v + 1
ElseIf s >= 5 Then
s = s - 5: h = h + 1
ElseIf s >= 2 Then
s = s - 2: f = f + 1
ElseIf s >= 1 Then
s = s - 1: d = d + 1
End If
Loop
If k > 0 Then
t = t + " " & k & " по 500 рублей, "
t = t + " " & m & " по 200 рублей, "
t = t + " " & n & " по 100 рублей, "
t = t + " " & z & " по 50 рублей, "
t = t + " " & v & " по 10 рублей, "
t = t + " " & h & " по 5 рублей, "
t = t + " " & f & " по 2 рублей, "
t = t + " " & d & " по 1 рублей, "
Cells(10, 1) = t
End If
End Sub