//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=(3,-27);
var x:=(-b/a)**(1/3);
writeln('3x^3-27<=0',',','x<=',x:0:4);
end.
0.927 гигабайт. с такой скоростью была передача информаци по сети
Ответ:
10234 * 157 = 1606738
1606738/8=200842 (остаток 2
)
200842/8=25105 (остаток 2
)
25105/8=3138 (остаток 1
)
3138/8=392 (остаток 2
)
392/8=49 (остаток 0
)
49/8=6 (остаток 1
)
6/8=0 (остаток 6)
1606738 (10) = 6102122 (8)
var
i1,i2,i3,i4,i5,i6:Longint;
begin
For i1:=0 to 9 do
For i2:=0 to 9 do
For i3:=0 to 9 do
For i4:=0 to 9 do
For i5:=0 to 9 do
For i6:=0 to 9 do
if i1+i2+i3=i4+i5+i6 then Writeln('счастливый билет':i1,i2,i3,i4,i5,i6);
Writeln('все миллионеры :D')
end.