Задача 24 Урок 15

Задача 24 Урок 15:

Задача про банкомат:

program u15z24;
type
  massiv=array [1..4] of integer;
var
  nom,kol:massiv;
  sum,j:integer;

procedure schet(sum:integer; nom:massiv; var kol:massiv);
var
  i:integer;
begin
  for i:=low(nom) to high(nom) do
  begin
    if (sum>=nom[i]) then
    begin
      kol[i]:=sum div nom[i];
      sum:=sum mod nom[i]
    end
    else
      kol[i]:=0;
  end;
end;

begin
  nom[1]:=1000;
  nom[2]:=500;
  nom[3]:=100;
  nom[4]:=50;
  writeln('Vvedite summu');
  readln(sum);
  if (sum mod 50<>0) then
    writeln('Summa vvedena ne verno')
  else
    schet(sum,nom,kol);
  for j:=low(nom) to high(nom) do
   if (kol[j]<>0) then
   begin
     write (nom[j],'x',kol[j]);
     writeln();
   end;

  readln();
end.