Как вариант - сначала избавится от знака, потом проверять на кол-во разрядов. Т.е.
If (a < 0) a *= -1;
Или можно использовать cmath:
#include <cmath>
a = abs(a);
Program Colors;uses crt;var red,green,blue,yellow:string;beginTextcolor(4);clrscr;gotoxy(30,8);red:='Red';writeln(red);gotoxy(30,9);Textcolor(2);green:='Green';writeln(green);gotoxy(30,10);Textcolor(1);blue:='Blue';writeln(blue);gotoxy(30,11);textcolor(14);yellow:='Yellow';writeln(yellow);end.
Если я так понял,то так.Работы то на 5 минут...
Видеопамять — это внутренняя оперативная память, отведенная для хранения данных, которые используются для формирования изображения на экране монитора.
<u>это глобальная распределительная система
</u>
Var numb,sot,des,ed:integer;
begin
readln(numb);
sot:=numb div 100;
des:= numb mod 100;
des:= des div 10;
ed:= numb mod 10;
writeln(sot,' ',des,' ',ed);
<span>end.</span>