Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  asshole
Language: PASCAL
Code:
program project1;

var
 m:array [1..9,1..3] of string;
 st: string;
 i,j,k,ans:integer;

procedure _03;
begin
 Delete(st,1, length(m[j,1]));
 i:=0;
 repeat
   i:=i+1;

   if i> 9 then begin i:= 0; break;  end;
   k:= Pos(m[i,3],st);

 until k<>0 ;
 k:=i;
 ans:=j*10 + k;
end;

procedure _04 ;
begin
ans := j*10;
end;

procedure _05;
begin
i:=0;
 repeat
   i:=i+1;
   if i> 9 then begin i:= 0; break;  end;
   k:= Pos(m[i,2],st);

 until k<>0 ;
  k := i;
  if k = 0 then ans:=0-10 else
    ans:=k + 10;
end;
procedure _06;
begin
   i:=0;
   repeat
   i:=i+1;
    if i > 9 then begin i:=0;  break;  end;
   k:= Pos(m[i,3],st);
   until k<>0 ;
   k := i;
   if k = 0 then ans:=0-10 else
    ans:=k;
end;

procedure _01;
begin
 if length(st) > 9 then _03 else _04;
end;

procedure _02;
begin
 if length(st) > 6 then _05 else _06;
end;
begin
m[1,1]:='десять';
m[2,1]:='двадцать';
m[3,1]:='тридцать';
m[4,1]:='сорок';
m[5,1]:='пятьдесят';
m[6,1]:='шестдесят';
m[7,1]:='семьдесят';
m[8,1]:='восемдесят';
m[9,1]:='девяносто';

m[1,2]:='одиннадцать';
m[2,2]:='двенадцать';
m[3,2]:='тринадцать';
m[4,2]:='четырнадцать';
m[5,2]:='пятнадцать';
m[6,2]:='шестнадцать';
m[7,2]:='семнадцать';
m[8,2]:='восемнадцать';
m[9,2]:='девятнадцать';

m[1,3]:='один';
m[2,3]:='два';
m[3,3]:='три';
m[4,3]:='четыре';
m[5,3]:='пять';
m[6,3]:='шесть';
m[7,3]:='семь';
m[8,3]:='восемь';
m[9,3]:='девять';

readLn(st);
 i:=0;
 repeat
   i:=i+1;
    if i > 9 then begin i:= 0; break;  end;
   j:= Pos(m[i,1],st);

 until j<>0 ;
  j := i;
  writeLn('j:=  ',j);


if j = 0 then _02 else _01;

writeLn(ans);
readLn;
end.
     
Comments: