• Задачи в Паскаль.
    1.С клавиатуры вводятся два числа А и В. Меньшее из этих чисел заменить их полусуммой, а большее удвоенным произведением.
    2. Введены 3 числа, найти наибольшее.

Ответы 6

  • Второе задание. Первое сейчас поправлюProgram nechet;var a,b,c:real; i:integer;beginreadln(a);readln(b);readln(c);if (a>b) and (a>c) then writeln(a);if (c>b) and (c>a) then writeln(c);if (b>a) and (b>c) then writeln(b);end.
  • Ты точно уверена, что без "else" нужно? Просто без него никак не получается. Скорее всего ты ошиблась.
    • Автор:

      patel
    • 6 лет назад
    • 0
  • Cgfcb,j)
  • Спасибо)
    • Автор:

      abril
    • 6 лет назад
    • 0
  • Добавь на лучший ответ, если не сложно?)
    • Автор:

      cindyspjy
    • 6 лет назад
    • 0
  • Первое: Program nechet;var a,b:real;beginreadln(a);readln(b);if a<b then writeln('Первое число=',(a+b)/2, ' Второе число=', (a*b)*2)else writeln('Первое число=',(a*b)*2, ' Второе число=', (a+b)/2)end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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