Определить разрядность и знак числа из интервала [-100;100] число задать случайным образом. Pascal ABC

2
как-то так
а ABS(N) это у нас что? чет я подлагиваю сегодня)
абсолютная величина
типо чтобы отрицательные числа тоже проверял
ясно)

Ответы и объяснения

2014-03-09T14:09:39+04:00
Var
n:integer;
b,c:string;
begin
n:=random(200)-100;
if n>0 then
b:='+' else b:='-';
if (abs(n)>10) then
c:='десятки';
if (abs(n)<10) then
c:='единицы';
writeln('число=',n,' знак ',b,'разрадность ',c);
end.
2014-03-09T14:38:43+04:00
Var x:byte;
     razryad, chastnoe:integer;

begin
  x := Random(200) - 100;

  razryad := 0;

  repeat

    razryad := razryad + 1;

    chastnoe := x div 10;
 
  until (chastnoe <> 0);

  if x < 0 then write("Число: ",x, "отрицательное, количество разрядов: ", razryad) else 

    if x > 0 then write("Число: ",x, "положительное, количество разрядов: ", 
razryad) else 
      write("Число:",x ," равно нулю, количество разрядов: ", 
razryad);
  writeln;
end.