12 lines
225 B
ObjectPascal
12 lines
225 B
ObjectPascal
// Èñêëþ÷åíèÿ. Ãåíåðàöèÿ èñêëþ÷åíèÿ
|
|
function f(x: integer): integer;
|
|
begin
|
|
if x=0 then
|
|
raise new System.Exception('Àðãóìåíò ôóíêöèè f íå ìîæåò áûòü ðàâåí 0');
|
|
Result := 10 mod x;
|
|
end;
|
|
|
|
begin
|
|
writeln(f(0));
|
|
end.
|