Времени суток!

Слезно прошу помочь с информатикой. Сегодня. Задача на ветвление.

В больнице ведут прием 2 врача. Приемы платные. Подсчитать среднюю стоимость за прием у 1 и 2 врача.

Question

Шабранг

10 сентября, 17:24

+2

Ответы (1)

Знаете ответ на вопрос?

Аландра · Answer 1

Var a, b: integer;

c: real;

begin

writeln ('Введите сумму денег приёма 2-ух врачей') ;

readln (a, b) ;

c: = (a+b) / 2;

writeln (c) ;

end.