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

Question

Информатика

Евсей

19 января, 03:08

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.