<span>REM func</span>
<span>INPUT a,b,c</span>
<span>IF (a^2-b)*(c-b^2)<>0 THEN</span>
<span>D=(a^2-b)*(c-b^2)/3</span>
<span>PRINT D</span>
<span>ELSE</span>
<span>PRINT "Реш.нет"</span>
<span>END IF</span>
<span>End</span>
Такие задачи лучше всего(проще и быстрее) решать через 16-ричную систему.
Гляди
123 = 7Bh = 0111 1011b = 001 111 011b = 173(8)
147 = 93h = 1001 0011b = 010 010 011b = 223(8)
Ну и так далее, всё просто! А для перевода 10->16 пользуйся стандартным алгоритмом, то есть последовательно дели на 16.
Например
123/16 = 7 (ост 11), значит 123 = 7Bh (Цифра B - это 11 в 10-тичной системе).
var
x, y: byte;
begin
readln(x);
repeat
if (x div 3 > 0) then
begin
write(3:2);
x -= 3;
end
else
if (x div 2 > 0) then
begin
write(2:2);
x -= 2;
end
else
if (x > 0) then
begin
write(1:2);
x -= 1;
end;
until (x = 0);
<span>end.</span>
Составляй сам(а). Ты учишься или кто?
Можно рисовать в Paint просто что угодно или граффики в Exel