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