Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
while not (input^ in ['0' .. '9'] do
read (c);
2/ I expect your code crashes on empty files, or if the file is padded with blanks - because you will try to read past the end of the file.
Try this routine -
Finished := False;
repeat
if eof then
Finished := True
else if input^ = ' ' then
read (c)
else
Finished := True
until Finished;
This is a bit more complicated, but more robust !
Were these perhaps homework questions? They actually are examples from a Pascal book called 'Oh, Pascal' ! That takes me back to COMP101 ....