помагите с fps срочна

[mmm]

Новое сообщениеДобавлено: 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.

[razzzar]

сначала б русский выучил, а потом паскаль )

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

как ты можеш сравнивать мах, если она не инициализирована?
дальше смотреть тупо влом

[mmm]

дальше все ok

[Jes]

еще бы :)
а бесконечный* while не напрягает?

ps: с наступающим ;)

*в значении: ниразу без end;

[mmm]

а бесконечный* while не напрягает?
пачему так решил я уже исправил где указывал там и была ошибка вот без ашибак
program Bevarde1;
var n,a,g: longint;
s,max,min,imin,imax:byte;
begin
WriteLn('введите число');
Readln(n);
g:=n;
max:=0;
min:=9;
while n>0 do
begin
s := n mod 10;
n := n div 10;
if s>max then begin max:=s; imax:=max; end;
end;
while g>0 do
begin
s := g mod 10;
g := g div 10;
if (imin<>s ) and (imax<>s)
then a:=1+a;
end;
WriteLn(a);
readln;
end.

[mmm]

а бесконечный* while не напрягает?
пачему так решил я уже исправил где указывал там и была ошибка вот без ашибак
program Bevarde1;
var n,a,g: longint;
s,max,min,imin,imax:byte;
begin
WriteLn('введите число');
Readln(n);
g:=n;
max:=0;
min:=9;
while n>0 do
begin
s := n mod 10;
n := n div 10;
if s>max then begin max:=s; imax:=max; end;
end;
while g>0 do
begin
s := g mod 10;
g := g div 10;
if (imin<>s ) and (imax<>s)
then a:=1+a;
end;
WriteLn(a);
readln;
end.
:p :p