Function HasK(n:longint;k:char):boolean; { возвращает true, если в числе n имеется цифра 'k' } var ns:string; begin Str(n,ns); { переходим к символьному изображению числа } HasK:=(Pos(k,ns))>0 end;
var a,b,i,kol:longint; k:char; begin Write('Введите интервал чисел: '); Readln(a,b); Write('Введите искомую цифру: '); Readln(k); kol:=0; for i:=a to b do if HasK(i,k) then kol:=kol+1; Writeln('Количество чисел с цифрой ',k,': ',kol) end.
Тестовое решение: Введите интервал чисел: 136 523 Введите искомую цифру: 5 Количество чисел с цифрой 5: 96
ответ 2
Объяснение:
т.к. 1923 можно делить на 3