По икт: пользователь вводит 2 целых чисел, найти в одной программе их сумму, разность, произведение и частное.

174

479

Посмотреть ответы 2

Ответы на вопрос:

Macsum204

Информатика

4,4(44 оценок)

Var a,b: integer; begin write('введите два целых числа: '); readln(a,b); if b < 0 then begin writeln(a,b,' = ',a+b); writeln(a,'-(',b,') = ',a,'+',-b,' = ',a-b); writeln(a,'*(',b,') = ',a*b); writeln(a,': (',b,') = ',a/b); end else begin writeln(a,'+',b,' = ',a+b); writeln(a,'-',b,' = ',a-b); writeln(a,'*',b,' = ',a*b); writeln(a,': ',b,' = ',a/b); end end. примеры работы программы: введите два целых числа: 9 -3 9-3 = 6 ) = 9+3 = 12 9*(-3) = -27 9: (-3) = -3 введите два целых числа: 11 11 11+11 = 22 11-11 = 0 11*11 = 121 11: 11 = 1