suma_imp.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 24 行

program suma_impara;
{Dintre primele n nr. naturale, sa se afiseze acelea cu proprietatea ca suma
cifrelor lor este impara. Se va folosi o functie care returneaza suma cifrelor
unui nr. dat ca parametru.}
var n,i:integer;
    function suma(x:integer):byte;
    var s:integer;
    begin
    s:=0;
    while x<> 0 do
              begin
              s:=x mod 10;
              x:=x div 10;
              end;
    suma:=s;
    end;
begin
     write('pana la ce numar sa fac? ');
     readln(n);
     for i:=1 to n do
         if suma(i) mod 2=1 then write(i:5);
         writeln;
end.