Даны три числа найти разность между большим и меньшим числом

0 голосов
58 просмотров

Даны три числа найти разность между большим и меньшим числом


Информатика (384 баллов) | 58 просмотров
Дан 1 ответ
0 голосов

Var a,b,c:integer;
function min(x1,x2:integer):integer;
begin
if x1end;
function max(x1,x2:integer):integer;
begin
if x1end;
begin
readln(a,b,c);
writeln( max( max(a,b) ,c ) - min ( min(a,b), c) );
end.

(1.6k баллов)