Страница 147 §3.3 номер 10, ГДЗ по информатике за 8 класс к учебнику Босовой

program z10;

var

  k1000,k500,k100,k50,summ: integer;

begin

  writeln('введи сдачу');

  readln(summ);

  k1000:=summ div 1000;

  k500:=summ mod 1000 div 500;

  k100:=summ mod 500 div 100;

  k50:=summ mod 100 div 50;

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

  writeln('блакнот по 1000 руб. - ',k1000,’ шт.’);

  writeln('блакнот по 500 руб. - ',k500,’ шт.’);

  writeln('блакнот по 100 руб. - ',k100,’ шт.’);

  writeln('блакнот по 50 руб. - ',k50,’ шт.’);

end.