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

Question

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

Comments

Fatukan, бахни прогу про числа-похожие/непохожи цифры в нем, там всего пару строчек поменять)

---

по сути только рандомно число задать и число k вывести) из твоей проги)

---

varn:integer;b,c:string;beginn:=random(200)-100;if n>0 thenb:='+' else b:='-';if (abs(n)>10) thenc:='десятки';if (abs(n)<10) thenc:='единицы';writeln('число=',n,' знак ',b,'разрадность ',c);end.

---

как-то так

---

а ABS(N) это у нас что? чет я подлагиваю сегодня)

---

абсолютная величина

---

типо чтобы отрицательные числа тоже проверял

---

ясно)

Answer 1

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<br>c:='единицы';
writeln('число=',n,' знак ',b,'разрадность ',c);
end.

Answer 2

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.