16 lines
318 B
ObjectPascal
16 lines
318 B
ObjectPascal
// Îáðàáîòêà íåñêîëüêèõ èñêëþ÷åíèé
|
|
var x: integer;
|
|
|
|
begin
|
|
try
|
|
writeln('Ââåäèòå ÷èñëî (1 - îøèáêà äåëåíèÿ íà 0): ');
|
|
readln(x);
|
|
x := 10 div (x-1);
|
|
except
|
|
on System.FormatException do
|
|
writeln('Îøèáêà ââîäà');
|
|
on System.DivideByZeroException do
|
|
writeln('Äåëåíèå íà 0');
|
|
end;
|
|
end.
|