Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
pdp33-bankAccounts
(* USER: XDV LANG: PASCAL TASK: bankacc *) var i,n,account,amount:longint; letter:char; acc:array[1..9] of longint; procedure deposit(a,x:longint); begin acc[a]:=acc[a]+x; writeln('s') end; function withdraw(a,x:longint):boolean; var success:boolean; begin if acc[a]>=x then success:=true else success:=false; if success then acc[a]:=acc[a]-x; withdraw:=success; end; begin for i:=1 to 9 do acc[i]:=0; readln(n); for i:=1 to n do begin read(letter); if letter in ['d','w'] then readln(account,amount); if letter='q' then readln(account); if letter='q' then writeln(acc[account]); if letter='d' then deposit(account,amount); if letter='w' then if withdraw(account,amount) then writeln('s') else writeln('f'); end; end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Shuffle number array
11.7.2013 naloga2
05 ariketa
https://m.facebook.com/akansha.panchal.906?refid=12&ref=opera_speed_dial
Linija
[DE/GER] Vigenere Chiffre (Entschlüsselung)
TanTai11A2@
23 3
Сумма пар чисел кратных и некратных 11 с дельтой неэффективная
1januar2018
Please log in to post a comment.