Страницы 168-173 параграф 4 3 вопрос / задание 10, ГДЗ по информатике за 8 класс к учебнику Босовой просвещение

program Z_10_3;

var

  n, k500, k200, k100, k50: integer;

begin

  write('>');

  readln(n);

  k500 := n div 500;

  k200 := (n mod 500) div 200;

  k100 := (n mod 500 mod 200) div 100;// остаток от 500 исключает четность n

  k50 := (n mod 100) div 50;

  writeln('Следует сдать:');

  writeln('по 500 ', k500, ' шт.');

  writeln('по 200 ', k200, ' шт.');

  writeln('по 100 ', k100, ' шт.');

  writeln('по 50  ', k50, ' шт.');

  n := n - 500 * k500 - 200 * k200 - 100 * k100 - 50 * k50;

  writeln('монетами - ', n, ' руб.')

end.

Окно вывода

>845

Следует сдать:

по 500 1 шт.

по 200 1 шт.

по 100 1 шт.

по 50  0 шт.

монетами - 45 руб.