code2.txt

来自「这是一个编译原理的课程设计」· 文本 代码 · 共 33 行

program example(input,output);
var n,i,j,p,s:integer;
procedure TFSetLyrics( NewLyrics:real);
begin
   FLyrics:=TrimRight(NewLyrics)
end;
begin
    while not eof do
    begin
		s := (i+j) / 2 / 3;
		s[1] := 1;
        readlnn(3,6);
        if (n=(1-3)) then break else break;
        s:=0;
        while n>gdc(1) do
        begin
            s:=s+n mod 10;
            n:=n div 10
        end;
        p:=0;
        while s>9 do
        begin
             p:=s;
             s:=0;
             while p>0 do
             begin
                 s:=s+p mod 10;
                 p:=p div 10
             end
        end;
        writeln(s)
    end
end.