46. Составить программу, которая проверяла бы, не приводит ли суммирование двух целых чисел А и В к переполнению (т. е. к результату большему чем 32 767). Если будет переполнение, то сообщить об этом, иначе вывести сумму этих чисел. Через Дельфи

Question

Информатика

Иваха

9 августа, 07:53

46. Составить программу, которая проверяла бы, не приводит ли суммирование двух целых чисел А и В к переполнению (т. е. к результату большему чем 32 767). Если будет переполнение, то сообщить об этом, иначе вывести сумму этих чисел. Через Дельфи

+3

Ответы (1)

Знаешь ответ?

Лекса · Answer 1

Program Name;

uses crt;

Var

a, b, s : integer;

Begin

Write ('введите a ');

readln (a);

Write ('введите b ');

readln (b);

S:=a+b;

if s<32767 then

writeln (s)

else

writeln ('произошло переполнение');

End.