cifre.pas

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

program cifre;
var n,q,s,i,p,k:longint;
begin
writeln ('introduceti numarul !');
read (q);
s:=0;
i:=0;
p:=0;
k:=0;
n:=q;
repeat
      k:=n mod 10;
      if (k mod 2=0) then p:=p+1
                     else i:=i+1;
      s:=s+k;
      n:=n div 10;
until n=0;
if (s mod 3=0) then writeln (' numarul ',q,' este divizibil cu 3')
               else writeln (' numarul ',q,' nu este divizibil cu 3');
writeln ('numarul ',q,'are ',p,' cifre pare si ',i,' cifre impare');
end.