1 год назад

Задание: Указать сумму покупки, количество монет в 10, в 5, в 2 и в 1 рублей, можно выдать сдачу. Сделать в GDB Online

Знания

Информатика

1 ответ:

Илья 231 год назад

0 0

Ответ:

Для начала возьмём максимальное количество пятирублёвок. А потом будем по одной их убирать и добавлять двойками сколько влезет. Потом единичками до 10.

Потом убираем по одной двушке, заменяя единичками.

5 5

5 22 1

5 2 111

5 11111

22222

2222 11

222 1111

22 111111

2 11111111

1111111111

Объяснение:

Читайте также

Здравствуйте, что в этом коде на free pascal считает k? program SiberiaBoss; var a:array[1..100] of integer; i,k,n:integer; begi

Виктория Бекчентаева [7]

Кол-во чисел в массиве которые меньше их порядкового номера

0 0

4 года назад

Что такое вершины и что такое рёбра

MlSerColobov

Вершины- верхняя точка чего либо...

0 0

4 года назад

Прочитать ещё 2 ответа

Перевести дату рождения 5сентября 2006год в двоичную систему счисления. пожалуйста!

Victoria Skvortsova

Ответ:

Если переводить всё вместе

5 сентября 2006 год = 000111100001010000001110001011110001101000001110001011100001111000001110

0010111000101101000011100010111100011011000011100010111100101111000011100

0101110000110100000111000101111000110010000111000101111001011110001010000

0110110001100100011001000111110001010000001110001011100001110000001110001

0111000101110000011100010111000011101

Объяснение:

0 0

4 года назад

Прочитать ещё 2 ответа

Замени в слове гласную и запиши новые слова : сон- сыр- суд- дом- тик- пил- дул- мел-

d-a-s-h-u-l-k-a

Дом-дым
мел-мол
тик-так
пил-пол
сыр-сэр
сон-сын
суд-сад
дул-дол

0 0

4 года назад

Напишите программу паскаль: С клавиатуры вводится число от 0 до 1000 включительно. Каждая цифра не превосходит 6. Найти сумму пр

Георгий Брязгин

Попробуй, может сработает)

program num32;var
nums, i, min, max, a, i2, i3, sum: integer;begin
min := 7;
max := 0;
sum := 0;

readln(nums);

while nums <> 0 do
begin

    if (((nums mod 10) > max)) then begin
      max := nums mod 10;
    end;



    if (((nums mod 10) < min)) then begin
      min := nums mod 10;


    end;
    nums := nums div 10;

end;

if (min > max) then begin

    for i2 := max to min do
      sum := sum + i2;
end;

if (max > min) then begin
    for i2 := min to max do
      sum := sum + i2;
end;

writeln(sum);

end.

0 0

4 года назад