fork download
copy 
  1. var
  2.   s1, s2: string;
  3.   p1, p2: integer;
  4. begin
  5.   readln(s1); 
  6.   readln(s2);
  7.   //
  8.   p1 := length(s1);
  9.   p2 := 1;
  10.   while (p2 <= length(s2)) do begin
  11.     //
  12.     while (1 <= p1) do
  13.       if (s1[p1] = s2[p2]) then
  14.         break
  15.       else
  16.         dec(p1);
  17.     //
  18.     if (1 > p1) then
  19.       break;
  20.     //
  21.     inc(p2);
  22.   end;
  23.   //
  24.   if (1 > p1) then
  25.     writeln('не имеется')
  26.   else
  27.     writeln('имеется');
  28. end.
  29.  
Success #stdin #stdout 0.02s 4112KB
comments (?)
stdin
copy 
123456789
97531
stdout
copy 
имеется
https://ideone.com/78EKu
language:
Pascal (gpc 20070904)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!