В отделе работают три сотрудника, которые получают заработную плату в рублях. Составьте программу, определяющую, на сколько зарплата самого высокооплачиваемого из них отличается от зарплаты самого низкооплачиваемого.
Это паскаль.

1

Ответы и объяснения

2014-02-22T15:51:58+00:00
Var  max,min,a,b,c:integer;
begin
read(a,b,c); 
//найдём максимальную зарплату 
if (a>b) and (a>c) then   
max:=a 
else   
if (b>a) and (b>c) then     
max:=b   
else     
max:=c; 
//найдём минимальную зарплату 
if (a<b) and (a<c) then   
min:=a 
else   
if (b<a) and (b<c) then     
min:=b   
else     
min:=c; 
writeln(max-min);
end.