Question

Времени суток! Слезно прошу помочь с информатикой. Сегодня. Задача на ветвление. В больнице ведут прием 2 врача. Приемы платные. Подсчитать среднюю стоимость за прием у 1 и 2 врача.

Answer 1

Var a,b: integer;
c: real;
begin
writeln('Введите сумму денег приёма 2-ух врачей');
readln(a,b);
c:=(a+b)/2;
writeln(c);
end.

Answer 2

Доброго времени суток! Конечно, я помогу с задачей на ветвление.

Для решения этой задачи нам понадобятся некоторые данные. Нам нужно знать общее количество приемов и общую сумму денег, которую заплатили за приемы каждого врача. По предоставленной информации, эти данные нам не известны.

Предположим, у нас есть данные о количестве приемов и сумме, которую заплатили за приемы каждого врача. Для решения задачи мы можем использовать следующий алгоритм:

1. Вводим количество приемов и общую сумму оплаты за приемы для первого врача.
2. Вводим количество приемов и общую сумму оплаты за приемы для второго врача.
3. Вычисляем среднюю стоимость приема для каждого врача, разделив общую сумму оплаты на количество приемов.
4. Выводим результаты на экран.

Примерный код на псевдокоде выглядит так:

Copy code
Ввод количества приемов и общей суммы оплаты за приемы для первого врача
Ввод количества приемов и общей суммы оплаты за приемы для второго врача

Средняя стоимость приема у первого врача = общая сумма оплаты первого врача / количество приемов первого врача
Средняя стоимость приема у второго врача = общая сумма оплаты второго врача / количество приемов второго врача

Вывод средней стоимости приема у первого врача
Вывод средней стоимости приема у второго врача

Заметьте, что в реальной программе нам также нужно обрабатывать возможные ошибки ввода данных (например, проверять, что количество приемов больше нуля, чтобы избежать деления на ноль) и давать более конкретные инструкции пользователю для ввода данных.

Если у вас есть конкретные данные, вы можете их предоставить, и я помогу вам с расчетами.