Работа 3.3 Упр.13 Задание 1 ГДЗ Семакин 10 класс (Информатика)

1. Составить программу, которая проверяла бы, не приводит ли суммирование двух целых чисел $$A$$ и $$B$$ к переполнению (т. е. к результату большему, чем $$32\,767$$). Если будет переполнение, то сообщить об этом, иначе вывести сумму этих чисел.

Нужно сложить два целых числа и проверить, не превышает ли сумма максимально допустимое значение для данного типа: $$32767$$.

Если $$a+b > 32767$$, то происходит переполнение. Иначе можно вывести сумму.

var a, b, s: integer;
begin
  write(‘введите a и b ‘);
  readln(a, b);
  s := a + b;
  if s < 32767 then
    writeln(‘сумма=’, s)
  else
    writeln(‘произошло переполнение’);
end.

В этой программе сначала вычисляется сумма $$s=a+b$$, затем выполняется проверка: если $$s < 32767$$, сумма выводится на экран, иначе сообщается о переполнении.

Ответ

Программа на Pascal:

var a, b, s: integer;
begin
  write(‘введите a и b ‘);
  readln(a, b);
  s := a + b;
  if s < 32767 then
    writeln(‘сумма=’, s)
  else
    writeln(‘произошло переполнение’);
end.