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.