Форум АНТИЧАТ - помагите с fps срочна

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

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

01.12.2007, 16:24

mmm

Познающий

Регистрация: 14.11.2007

Сообщений: 50

Провел на форуме:
82051

Репутация: 6

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

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