В четырехзначном числе определить сначала самую большую цифру и вывести ее, затем - самую маленькую цифру и вывести ее, затем найти разность большей и меньшей цифры.

Question

Вероника Мартынова

Информатика

30 января, 21:02

В четырехзначном числе определить сначала самую большую цифру и вывести ее, затем - самую маленькую цифру и вывести ее, затем найти разность большей и меньшей цифры.

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Арина Сидорова · Answer 1

var

a, b, c, d:char;

ai, bi, ci, di:integer;

function min (x, y:integer) : integer; //функция, находящая минимум из 2 х чисел

begin

if (x
else min:=y;

end;

function max (x, y:integer) : integer; //функция, находящая максимум из 2 х чисел

begin

if (x>y) then max:=x

else max:=y;

end;

begin

read (a, b, c, d);

ai:=strtoint (a);

bi:=strtoint (b);

ci:=strtoint (c);

di:=strtoint (d);

writeln (min (min (ai, bi), min (ci, di))); //вывод минимума

writeln (max (max (ai, bi), max (ci, di))); //вывод максимума

writeln (max (max (ai, bi), max (ci, di)) - min (min (ai, bi), min (ci, di))); //вывод разности максимума и минимума

end.