Паскаль ! определить хватит ли на покупку а кг яблок нужно

если под ячейкой поодразумевается байт (восемь бит) то:

(для беззнаковых (натуральных с нулём) )

или

- (для знаковых (целых) ) 

первую фигуру мы можем раскрасить в 6 цветов, вторую - в 5, третью- в 4, и т.д. а первую - в 3 цвета

6*5*4*3=360

ответ 360 способов

разбиваем числа на триады (группы по 3 числа в каждой), и смотрим значение по таблице, получается:

1) 6224

2) 64472

program w7w7;

var a: real;

begin

readln (a);

if a< 0 then writeln ('otritsatelnoe chislo');

if a> 0 then  writeln ('pologitelnoe chislo');

end.