Задача 24 Урок 15
Primary tabs
Задача про банкомат:
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.
- Log in to post comments
- 371 reads
vedro-compota
Sun, 01/08/2023 - 14:23
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)