Составьте программу определения наибольшей цифры в записи данного натурального числа.

Var

  n: Integer;

  min,max: Byte;

BEGIN

Writeln('Введите число: ');

Readln(n);

max:=0;

min:=9;

While n>0 do

begin

  If n mod 10>max Then max:=n mod 10;

  If n mod 10<min THen min:=n mod 10;

  n:=n div 10;

end;

Writeln('MAX=',max);

Writeln('MIN=',min);

END.

(0,2+х)/(-14)=0

дробь=0, если числитель=0, а знаменатель ≠ 0

⇒ 0,2+х=0; х=-0,2 - это корень ур-ния.

да это оригинал,бирка оригинал