var
a:real;
begin
readln (a);
a:=trunc (a); {trunc - это такая функция (уже готовая в самой программе), которая находит целую часть числа}
writeln ('Целая часть числа а равна ',a)
end.
если я правильно понял смысл
Переведем все числа в десятичную сс 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
Program p_2;
var
a : array[1..10,1..10] of integer; // двумерный массив.
i, j, p, o : integer;
begin
// Тут считаем,что массив уже получен
for i := 1 to 10 do
begin
p := 0;
o := 0;
for j := 1 to 10 do
if (a[i,j] > 0)
then p := p + 1
else o := o + 1;
if(o = p) then
for j := 1 to 10 do
write(a[i,j], ' ');
end;
end.
2(x+3)²+2(x+3) - (2(x+2)²+(x+2))-64=0
2(x²+6x+9)+2x+6-2(x²+4x+4)-x-2-64=0
2x²+12x+18+2x+6-2x²-8x-8-x-66=0
5x=50
x=10