Var
x,y:real;
i:integer;
begin
y:=0;
Write('x= ');
Read(x);
for i:=1 to 11 do y:=i+y*x;
Writeln('Y= ',y)
end.
<u>Пример</u>
x=3.6
Y= 700939.22164521
Они одинаковые,потому что система хранения информации тысячеричная.Байт, Килобайт, Мегабайт, ГИГАБАЙТ,Террабайт.
Черти просто по клеточкам чтобы получился квадрат потом раздели их на 3 равные части