... s:=# 32+ s; while length(s) < 25 do s:= s + # 32; cantrai:=s; END; FUNCTION Cangiua(s:string):string; VAR i:byte; BEGIN for i:=1 to (25 -length(s)) div 2 do s:= # 32 + s; while length(s) < 25 ... nhiên n(n < 25 6).Xây dựng tập tất cả các số chính phương < = n. uses crt; Var A:set of byte; n,i:byte; Begin clrscr; writeln('Xay dung tap cac so chinh phuong < =n...
Ngày tải lên: 14/10/2013, 11:11
Ngày tải lên: 03/08/2012, 21:05