Новое сообщениеДобавлено: 15:51, 01.12.2007 Ответить с цитатой Изменить/удалить это сообщение Удалить сообщение
может смаглибы памоч с заданием нада в числе найти максимальную и
минимальную цифру и растаяние от максимальной до минимальной
пример вводиш 123456789 max= 9 min= 1 растаяние равно 7 цыфр и считает все нармальна а вводишь 987654321 все неправильна ошибка в max и min я там указал мне нада здать будет 2 декабря памогите

program Bevarde1;

var n,a,s,min,g,max:longint;

begin

WriteLn('введите число');

Readln(n);

g:=n;

while n>0 do

begin

s := n mod 10;

n := n div 10;

if max > s then max:=max {здесь ашибка или нада есьчо чтота даписать }

else max:=s;

if max > s then min:=s

else min:=max; {до сюда }

end;

while g>0 do

begin

s := g mod 10;

g := g div 10;

if (min<>s ) and (max<>s)

then a:=1+a;

end;

WriteLn(a);

readln;

end.