Parašė ozzWANTED· 2007 Rugs. 23 11:09:57
#6
Kwyn parašė:
Norėčiau aš pamatyt tą panel kur su Pascaliu kurta. Gal galėtum pademonstruot? Nekart dar tokios neteko matyt.. :o:D
program panele;
var a,a1,a2,atv: integer;
begin
a := $userdata['user_id'];
a1 :=a div 100;
a2 :=a mod 10;
atv :=a1*a2;
WriteLn('Pakeistas skaičius ',atv);
Readln;
end.
Jis matyt norėtų kažko panašaus:]:D Bet nixuja niekas neveiks.