помогите решить задачку по информатике

var s : string;
begin
writeln ( ' Введите число : ' ) ;
readln ( s ) ;
writeln ( ' Длинна числа : ' , length ( s ) ) ;
if pos ( ' 7 ' , s ) > 0 then writeln ( ' Цифра 7 присутствует ' )
else writeln ( ' Цифра 7 отсутствует ' );
readln;
end.

Процедура Кнопка ()
ММ = 74217;
Число7ок = 0;
Пока ММ > 0 Цикл
ост = ММ; // получаем остаток от деления на 10
ММ = ММ - ост;
Если ост = 7 Тогда // тут проверяем цифра на равенство 7 и увеличиваем на 1, если ИСТИНА
Число7ок = Число7ок+1;
КонецЕсли;
ММ = ММ/10;
КонецЦикла;
Сообщить ("Число 7ок = "+Число7ок) ;
КонецПроцедуры

Результат работы программы:
Число 7ок = 2

1. Превращаешь в строковую перменную. В зависимости от языка, по разному. Inttostr(x,y);
2. определяешь длину. length(y)
3. цикл for от 1 до length(y) если copy(y,i,1) (смотрим i-ю цифру) равна 7 (больше 6 и меньше 8), то z=z+1

x данное число, y - в строковом сиде, z -кол-во 7

алгоритм так как язык не указан
варианта 2
1:
перевести в строку и проитись по символьно на соответствиие "Букве 7"
2:делить на 10 брать дробную часть и сравнивать с 7
отбрасывать дробную чать повторять пока нечего будет делить