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

Question

Информатика

Эвелина

6 декабря, 07:52

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

+5

Ответы (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.