numere.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program numere;
{pt. un nr. dat n sa se determine nr.naturale mai mici sau egale
cu n a caror suma a cifrelor e impara}
var n,i,s,k:integer;
begin
write('n= ');
readln(n);
for i:=1 to n-1 do
    begin
         s:=i;
         k:=0;
         repeat
               k:=k+(s mod 10);
               s:=s div 10;
         until s=0;
         if (k mod 2=1) then writeln(i);

    end;
end.