• Помогите пожалуйста. Нужно ввести 2 числа, вычислить сумму чисел и их произведение.вывести на экран большее значение

Ответы 1

  • Var a, b, c, d:integer; begin Readln (a, b); C:=a+b; d:=a*b; writeln ('сложение ',с,'произведение',d); if c>b then writeln ('Большесумма') else ('больше произведение); End.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years