Temos pavadinimas: WordPress, Shopify ir PHPFusion programuotojų bendruomenė :: PASCALIS (9tokų uždavinys)

Parašė citni· 2010 Spa. 15 20:10:21
#2


program Bevarde3;
var x,x2,x3,xk:integer;
begin
  WriteLn('Ivesk skaicius');
  Readln(xk);
  x:=xk;
  x3 := xk div 10 mod 10 mod 10;
  x2 := x div 10 div 10 mod 10;
  writeln(x2,x3);
end.