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

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

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

Question

Манук

5 августа, 17:51

+4

Ответы (1)

Знаете ответ?

Зорба · Answer 1

Var a, b: integer;

c: real;

begin

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

readln (a, b) ;

c: = (a+b) / 2;

writeln (c) ;

end.