Когда был в 11м классе придумал с другом одну задачку. Не то, чтоб шибко сложную, скорее просто прикольную. Вспомнилась в связи с одним недавним постом на этом форуме.
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | {$APPTYPE CONSOLE}
uses Dialogs;
procedure SuperProc( var a, b: integer );
begin
a := 1 ;
b := 2 ;
if (a= 1 ) then
exit
else
ShowMessage( 'Epic FAIL!' );
end ;
...
|
Суть: написать программу с использованием этой процедуры (не внося изменений в неё) так, чтобы процедура выдала сообщение 'Epic FAIL!'. Грубо говоря, писать код можно только на месте многоточия.