fork download

copy

Program Pex;
Type Natural=0..MaxInt;
Var I, k, m, n : Natural;
Function SumaCifrelor(i:Natural): Natural;
Var suma: Natural;
Begin
Suma:=0;
Repeat
Suma:=suma+(I mod 10);
i:=i div 10;
until i=0;
SumaCifrelor:=suma;
End;
Function SolutiePosibila(i:Natural):Boolean;
Begin
If SumaCifrelor(i)=m then SolutiaPosibila:=true
Else SolutiePosibila:=false;
End;
Procedure PrelucrareaSolutiei(i:Natural);
Begin
Writeln(‘i=’, i);
K:=k+1;
End;
Begin
Write(‘Dati n=’); 
readln(n);
Write(‘Dati m=’); 
readln(m);
K:=0;
For i:=0 to n do
If SolutiePosibila(i) then PrelucrareaSolutiei(i);
Writeln(‘K=’, K);
Readln;
End.

prog.pas: In function `SolutiePosibila':
prog.pas:16: error: undeclared identifier `SolutiaPosibila' (first use in this routine)
prog.pas:16: error:  (Each undeclared identifier is reported only once
prog.pas:16: error:  for each routine it appears in.)
prog.pas: In procedure `PrelucrareaSolutiei':
prog.pas:21: error: invalid character
prog.pas:21: error: invalid character
prog.pas:21: error: invalid character
prog.pas:21: error: invalid character
prog.pas:21: error: invalid character
prog.pas:21: error: invalid character
prog.pas:21: error: syntax error before `,'

Standard output is empty