P ("1153".to_i(8) - "662".to_i(8)).to_s(8)
Ответ "271"
А8=7*1000000+2*100000+5*10000+1*100+3+1*0,1+2*0,01
var a,i:integer;
begin
readln(a);
for i:=1 to a do writeln(i*i);
end.
Я знаю Δπ∛∈βππ∛,,,,,⇔∈∉∛××≠≠≠≠≠≠≠≠≠≠≠≠≠Δ
Ваша схема, в общем, верна. Её можно чуть упростить, убрать проверку Р.