Meghökkentő ciklus ?

Program ciklus;

Var s:real;

Begin

s:=0;

While s<ɭ do

s:=s+1/16;

End. :

Előző kocka

Következő kocka

Első kocka

Grafikus változat megtekintése