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

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.

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.

 

3*3: (3*3)=1

(3*3-3): 3=2

3*3-(3+3)=3

(3*3+3): 3=4

(3+3): 3+3=5

(3+3-3)+3=6

(3: 3+3)+3=7

3*3-(3: 3)=8

3*3-(3-3)=9

3*3+3: 3=10