bbaitap lt windows1 phan 2

De Thi LT Pascal Hoc Phan 2

De Thi LT Pascal Hoc Phan 2

... 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

23 259 1
Tư duy hệ thống phần 2

Tư duy hệ thống phần 2

Ngày tải lên: 10/08/2012, 17:08

9 1,2K 10
w