В фирме работают 4 человека. Каждый получает разную зарплату. Необходимо вывести на экран насколько самая маленькая отличается от большой.

Question

Информатика

Иосафат

14 мая, 06:49

В фирме работают 4 человека. Каждый получает разную зарплату. Необходимо вывести на экран насколько самая маленькая отличается от большой.

+2

Ответы (1)

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

Ританя · Answer 1

Var a, b, c, k, min, max:real;

begin

readln (a, b, c, k) ;

min:=999999; max:=-1;

if amax then max:=a;

if bmax then max:=b;

if cmax then max:=c;

if cmax then max:=c;

writeln ('max>min на ', max-min) ;

end.