• С клавиатуры вводится 2 числа,если они оба больше 5,то найти их полусумму,иначе удвоенное произведение.

Ответы 1

  • Program s123;Var a,b:real;Begin Writeln('Введите значения 2 чисел'); Readln(a,b); If (a>5) and (b>5) Then a:=(a+b)/2 Else a:=(a*b)*2; Writeln(a);End.
    • Автор:

      lena1eov
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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