MDXXVll - 1527
CMXClll - 992
1527 + 992 = 2519
Переведем все числа в десятичную сс 1000p=p^3
120p=p^2+2p 110p=p^2+p получаем уравнение p^3=p^2+2p+p^2+p
p^3-p^2-2p-p^2-p =0 реши уравнение и найди p
Устройство, предназначенное для ввода информации – г) мышь
begin
var a := ArrRandom(ReadInteger('n ='), -15, 15);
a.Println;
a.ForEach(x -> begin if x < 0 then Print(x) end)
end.
Uses Crt,GraphABC;var i,n,q,c:integer;beginhidecursor;Writeln('Введите количество досок N:');Read(n);clearwindow;For I:=1 to n dobeginc:= clyellow;SetPenColor(c);SetPenWidth(2);q:=40*i;MoveTo(100+q,340);LineTo(100+q,130);LineTo(120+q,100);LineTo(140+q,130);LineTo(140+q,340);LineTo(100+q,340);floodfill(100+q+10,200,c);<span>end;</span>