Skip to content

Instantly share code, notes, and snippets.

@tuankiet65
tuankiet65 / bt4.pas
Created March 20, 2013 11:08
Tìm số đảo của một số nguyên dương
program bt4;
uses crt;
var i: longint;
n: string;
begin
clrscr;
write('Nhap n: ');
readln(n);
for i:=length(n) downto 1 do write(n[i]);
readln;
@tuankiet65
tuankiet65 / ttt?.pas
Created March 30, 2013 00:28
Nhập một xâu , xác định xâu được lặp lại và được lập lại bao nhiêu lần
program bt1;
uses crt;
var s, s2, s3: string;
i, i2: longint;
begin
clrscr;
write('Nhap s: ' );
readln(s);
for i:=1 to length(s) do begin
if length(s) mod i=0 then begin
@tuankiet65
tuankiet65 / binary_and_octal.pas
Created April 4, 2013 11:06
Nhập một số, đổi ra hệ nhị phân và bát phân
program binary_and_octal;
uses crt;
var input: int64;
function string_reverse(s: ansistring): ansistring;
var i: longint;
begin
for i:=length(s) downto 1 do string_reverse:=string_reverse+s[i];
end;
function decimalto(n, x: longint): ansistring;
var tmp: string;
@tuankiet65
tuankiet65 / abc_bcd.pas
Created April 4, 2013 11:13
Đọc từ file ABC.txt gồm các số, xuất ra BCD.txt số lớn nhất
program abc_bcd;
uses crt;
var t, tout: text;
max, tmp: int64;
begin
clrscr;
assign(t, 'ABC.txt');
reset(t);
while not eoln(t) do begin
read(t, tmp);
@tuankiet65
tuankiet65 / longest_word.pas
Last active December 15, 2015 19:10
Nhập 1 xâu, xác định từ có độ dài lớn nhất
program longest_word;
uses crt;
var s, tmp, maxstring: ansistring;
i, maxlength: longint;
begin
clrscr;
write('Nhap xau: ');
readln(s);
while s<>'' do begin
if pos(' ', s)<>0 then begin
@tuankiet65
tuankiet65 / max(tong).pas
Created April 5, 2013 15:05
Nhập vào 5 số, thêm dấu '+' hay '-' để có phép tính với tổng lớn nhất
program max_tong;
uses crt;
var s, tmp: string;
i: byte;
input: int64;
begin
clrscr;
for i:=1 to 5 do begin
write('Nhap so thu ', i, ': ');
readln(input);
program bt;
uses crt;
var inp: anstring;
i: longint;
tmp, chk: byte;
tong: int64;
begin
clrscr;
write('Nhap n: ');
readln(inp);
program primefactor;
uses crt;
var i, n, i2, i3: longint;
prime: array [1..1000000] of longint;
s, tmp: string;
function checkprime(n: longint): boolean;
var i: longint;
begin
checkprime:=true;
for i:=2 to n-1 do begin
APPLICATION NAME
find
TITLE
Find My iPhone could not be loaded
MESSAGE
There was a problem loading the application due to a possible network error or missing resources. Please try again.
ORIGIN

My PGP Public key

    -----BEGIN PGP PUBLIC KEY BLOCK-----
    Version: GnuPG v1.4.12 (GNU/Linux)
    
    mQINBFGcH3kBEADF6rgzH+6u7SK+zKNz8XZyegz+VbAD/uclacBl/vlAMSRDIB0q
    IrzmbtDMTjM0EroHt5eHJo2wkrCaN70NZ/eGbKGI0uf3zROS/b+/PQz8OMtXSyjJ
    ryhtj3+3J4TGcNhuZ8J5cN+/SiLxSBi7vP5+gGnrEDDC79ll+8YhPda0YsNEAReF

ae3IcebOvmr2j6JdKe4XWqGjUQplJl7YdWqfFaPa6iQmNuMYLu9ddizoRvz3kDfL