Вычислить сумму тех чисел из заданного отрезка [a;b] (a и b - натуральные ), в запись которых входит цифра k

Категория: Delphi/Pascal
2011-08-20 14:18:09
code: #pascal
  1. program p1(input,output);
  2. var a,b,k:integer;
  3. function summ(a,b,k:integer):integer;
  4. var i:integer; s:integer;
  5. function in_k(c,k:integer):boolean;
  6. label 99;
  7. var p:integer;
  8. begin
  9.       while c<>0 do begin
  10.       p:=c;
  11.       c:=c mod 10;
  12.       if c=k then begin in_k:=true; goto 99 end
  13.         else c:=p div 10;
  14.       end;
  15.       in_k:=false;
  16. 99: end;
  17. begin
  18.      s:=0;
  19.      for i:=a to b do
  20.          if in_k(i,k) then s:=s+i;
  21.      summ:=s;
  22. end;
  23.  
  24. begin write('interval>');
  25.       readln(a,b);
  26.       write('k>');
  27.       readln(k);
  28.       write(summ(a,b,k));
  29.       readln;
  30.       readln;
  31. end.
Поделиться:

Похожие статьи:

теги: pascal, студенты, консольное приложение