Запишите на языке паскаль программу, реализующую алгоритм работы кассира, покупателю сдачу (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.

думаю, что 19,5 кб = 0,019 мб.

на каком языке нужна программа?   пример на paskal:   program zadacha;   var massiv: array [1..15] of integer; i: byte; massiv2: array [1..15] of real;   begin  randomize;   write('isxodnij massiv: ');   for i: =1 to 15 do  begin  massiv: =random(41)-20;   write(massiv,' ');   end;   writeln;   writeln('massiv posle preobrazovanij: ');   for i: =1 to 15 do  begin  if massiv=0 then massiv2: =massiv  else  if massiv mod 5 = 0 then massiv2: =massiv*2  else begin  massiv2: =massiv;   massiv2: =massiv2/2;   end;   write(massiv2: 0: 1,' ');   end;   readln;   end.