SHARE
TWEET

HamDongRetardedYesNo

a guest Sep 27th, 2017 66 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. Program HamDongRetardedYesNo;
  3.  
  4. Var
  5.  
  6. ActualIQ : Integer;
  7.  
  8. PossibleIQ : Integer;
  9.  
  10. PercentageIQ : Real;
  11.  
  12. Begin { HamDongRetardedYesNo }
  13.  
  14. Writeln ('Please type the student''s actual IQ: ');
  15. Readln (ActualIQ);
  16.  
  17. Writeln ('Please type the total possible IQ of the exam : ');
  18. Readln (PossibleIQ);
  19.  
  20. PercentageIQ := (ActualIQ / PossibleIQ) * 100;
  21.  
  22. If (PercentageIQ >= 70) Then
  23. Begin
  24. Writeln;
  25. Writeln ('Retarded Yes');
  26. End
  27. Else
  28. Begin
  29. Writeln;
  30. Writeln ('Retarded Yes');
  31. End;
  32. { EndIf }
  33.  
  34. End. { HamDongRetardedYesNo }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top