Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #44.2K
Problem: here's the code. [code=pascal]program fun; Uses wincrt; var y:integer; ans:integer; function User(input:integer):integer; var x:integer; ans:integer; Begin readln(input); ans:=1; if (input>0) and (input<100) Then begin ans:=ans+input end else begin x:=User(input); halt; end; User:=ans; End; Begin ans:=User(y); writeln(ans); end.[/code] when run all work perfectly. when i entered 99 i got the … |