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
#импортируем randint, чтобы получить случайные числа в список
from random import randint
#создаем список из 7 элементов
a = [randint(2, 6) for i in range(7)]
#выводим список на экран
print(a)
#выводим сумму элементов списка
print(sum(a))