Запишите на языке паскаль программу, реализующую алгоритм работы кассира, покупателю сдачу (s) наименьшим количеством банкнот по 500 (k500), 100 (k100), 50(k50, и 10 рублей (к10

var

  s : integer;

begin

  read (s);

  writeln ('500 =', s div 500);

  s : = s mod 500;

  writeln ('100 = ', s div 100);

  s : = s mod 100;

  writeln ('50 =', s div 50);

  s : = s mod 50;

  writeln ('10 = ', s div 10);

  s : = s mod 10;

  writeln ('не смог сдать = ', s);

end.

 

Сначала код без комментариев: var s: longint; i: integer; a: byte; begin s: =0; repeat     read(a);     if (a mod 2 < > 0)and(a mod 7 = 0) then s: =s+a; until a = 0; writeln('s = ',s); end. теперь объяснение каждой строки: var s: longint; i: integer; a: byte; // в эту переменную будет вводится число с клавиатуры. тип byte может принимать значения от 0 до 255. поэтому его как раз хватит. begin s: =0; // тут будет храниться сумма, поэтому переменную следует сперва обнулить. repeat // далее начинается цикл     read(a); // эта команда каждый раз считывает с клавы число, и записывает его в переменную a.     if (a mod 2 < > 0)and(a mod 7 = 0) then s: =s+a; //тут проверяется 2 условия, и если они выполняются - к переменной s прибавляется значение переменной а     1 условие: число нечётно, то есть остаток от деления его на 2 не равен нулю (a mod 2 < > 0)     2 условие: число кратно 7, то есть делится без остатка на 7, то есть остаток от деления равен нулю (a mod 7 = 0) until a = 0; // цикл повторяется до тех пор, пока введённое с клавы число не будет равно нулю (a = 0) writeln('s = ',s); // тут выводится искомая сумма end.

Вглубокой древности - на стенах пещер, на глиняных табличках, восковых дощечках, на скрижалях, потом на папирусе, бересте, пергаменте и т. д.  потом изобрели бумагу.  в старину писали стилом, палочками, гусиными перьями, углями. были ещё какие-то средства.  в девятнадцатом веке изобрели пишущие машинки, фотоаппараты - ведь запечатление изображений на фотоплёнках и фотопластинках, это тоже запись информации. также в 19 столетии появились граммофоны, патефоны, механические пианино, шарманки (музыка - тоже информация) .  а уже ближе к нашим временам появились магнтитофоны, видеомагнтитофоны, потом лазерные устройства для записи на диски. наконец, мобильники, фотоаппараты, компьютеры - это тоже накопители информации, которая хранится на дисках, флэшках, картах памяти и т. д.  в общем, сам поищи в интернете, напиши разные варианты для поиска, например, "древние способы записи информации", "старинные носители информации", "папирус, глина, берестяные грамоты, письмена", "александрийская библиотека" и т. д.