de thi pascal

Ngày tải lên: 16/07/2013, 01:26

Ngày tải lên: 13/09/2013, 22:10

... i,j,max:integer; begin readln(s); while s[1]=#32 do delete(s,1,1); while s[length(s)]=#32 do delete(s,length(s),1); while pos(#32#32,s)>0 do delete(s,pos(#32#32,s),1); j:=1; for i:=1 to length(s) ... ÑAÙP AÙN VOØNG 3 -NGÀY THI: 13/10/2008 1. Timchuoi.pas var s,s1:string; begin readln(s); readln(s1); while pos(s1,s)>0 ... tren la:'); while length(s)>0 do begin s2:=copy(s,1,2);...

Ngày tải lên: 25/09/2013, 19:10

... (m<n); dem:=0; for i:= m to n do if nto(i) and Dx(i) then begin write(i,' '); inc(dem); end; if dem=0 then writeln('Ko co so Hp-ngto nao'); readln; End. DE THI PASCAL ... tu ban phim cho den khi gap so 0, Sau do tinh tong cac so duong, trung binh cong cac so am. Var n,Tsd,Tsa:integer; d:byte; Begin writeln('Nhap vao 1 day cac so nguyen cho den kh...

Ngày tải lên: 10/10/2013, 04:11

Ngày tải lên: 31/10/2013, 13:11

... longInt):char; Var st:string[10]; dem,M:longInt; Begin dem:=0; M:=1; Repeat str(M,st); dem := dem+length(st); inc(M); Until dem >= NN; chuso := st[length(st) - (dem - NN)] (* *) BEGIN clrscr;; ... readln(f,s); for k:=1 to n do for i:=1 to length(s)-length(des[k])+1 do if des[k]=copy(s,i,length(des[k])) then begin delete(s,i,length(des[k])); insert(source[k],s,i); i:=i+l...

Ngày tải lên: 13/03/2014, 08:30

... (m<n); dem:=0; for i:= m to n do if nto(i) and Dx(i) then begin write(i,' '); inc(dem); end; if dem=0 then writeln('Ko co so Hp-ngto nao'); readln; End. Link đề thi HSG ... d=0 then writeln('Ko co so H-Nto nao giua ',m,' va ',n); readln; End. DE THI PASCAL HP1 Director by:Luu Cong Hoan BT 2.29.Giai PT ax+b>0 Program BT229; Uses...

Ngày tải lên: 22/06/2014, 16:20

... cần thi t, nhiều bài toán đà thấy ngay cách giảI , chỉ cần khai báo các biến thích hợp rồi có thể viết chơng trình luôn. c/ Việc thực hiện ba bớc khi giảI bài toán trên máy tính là cần thi t, ... Câu 28. Trong pascal , khai báo nào sau đây đúng hoặc sai : Cách khai báo Sai a/ Var tb : real ; b/ Var 4hs : integer ; c/ Const X : real ; d/ Var R = 30 ; Câu 29 .các câu lệnh trong pascal s...

Ngày tải lên: 01/07/2014, 19:00

... chuẩn trong pascal : a Byte b Extended c abs d Vidu 10/ Trong pascal, các phép toán sau đây đâu là phép toán quan hệ : a mod b < > c and d / 11/ Để khai báo tên chương trình trong pascal ta ... : a > b [ c & d \ 9/ Trong pascal các kiểu dữ liệu sau, kiểu nào có phạm vi giá trị lớn nhất : a Extended b Real c Longint d Integer 10/ Tên trong Turbo pascal có độ dài tối đ...

Ngày tải lên: 09/07/2014, 21:00

Ngày tải lên: 20/07/2013, 01:28