Run Code
|
API
|
Code Wall
|
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
8
practica 3 ejercicio B6
JESSICA GOMES DE SOUZA FERREIRA 600621634
Task1-3
Task 3a
Задача 6.14 из учебника Грицановой (квартира)
1
НОД всеми способами
Project Euler 17 : Number letter count (1000)
ruteo