Question

(55 баллов) Информатики на вас надежда!!!
Условие: Установить программным путем произошла ли ошибка в процессе выполнения сложения над целыми числами:
Программа(Паскаль)
Var
a, b, rez:byte // или shortint
Begin
readln(a);
readln(b);
rez;=a+b;
if.....................then write ('yes') else write ('no');
end.

Answer 1

Var
a, b, rez:byte // èëè shortint
flag:boolean;
Begin
try readln(a);
readln(b);
rez:=a+b;
except b:=true; end; if not b then write ('yes') else write ('no');
end.