tuankiet65

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

tuankiet65

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

tuankiet65

program bt;
uses crt;
var inp: anstring;
    i: longint;
    tmp, chk: byte;
    tong: int64;
begin
 clrscr;
 write('Nhap n: ');
 readln(inp);

tuankiet65

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);

tuankiet65

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

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

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

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

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

program string_reverse;
uses crt;
var t, tout: text;
    s, s2: widestring;
    i: longint;
begin
 clrscr;
 assign(t, './input.txt');
 reset(t);
 assign(tout, './ketqua.txt');