Задать вопрос
3 января, 15:35

Даны два числа a и b. Меньшее из них замените полусуммой этих чисел, а большее - произведением этих чисел

+5
Ответы (1)
  1. 3 января, 18:23
    0
    var a, b, s, p:real;

    begin

    readln (a, b) ;

    s: = (a+b) / 2;

    p:=a*b;

    if a
    else begin b:=s; a:=p; end;

    writeln ('a = ', a:4:2,' b = ', b:4:2) ;

    end.

    Пример:

    15 27

    a = 21.00 b = 405.00
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Даны два числа a и b. Меньшее из них замените полусуммой этих чисел, а большее - произведением этих чисел ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Написать программу в Паскале. Даны два числа. Меньшее из них замените полусуммой этих чисел, а большее - их произведением. Составить блок-схему.
Ответы (1)
Задачи по Паскалю. Условный оператор. 1. Даны два действительных числа меньшее из них замените полусуммой их, а большее их произведением. 2. Найдите решение уравнения ах + в=0, если оно существует, если а=0 3.
Ответы (1)
Даны два числа. Большее из двух данных чисел заменить удвоенным произведением, а меньшее полусуммой этих чисел.
Ответы (1)
Язык C#. Написать программу на языке C#разветвляющейся структуры согласно вариантам задания 1 (используя if) и задания 2 (используя switch). 1. Даны два числа. Большее из этих двух чисел заменить их полусуммой, а меньшее удвоенным произведением. 2.2.
Ответы (1)
Написать прогу на C# с помощью функции if Даны два числа. Большее из этих двух чисел заменить их полусуммой, а меньшее удвоенным произведением.
Ответы (1)