Заданая последовательность состоит из 1 и 0,определить количество Mзначных чисел,делящихся на 21

[Dima170792]

Уважаемые форумчане .нужна ваша помощь в решении задачи по информатике(язык программирования Delphi7).Задача следующая :Заданная последовательность состоит из 1 и 0,определить количество M-значных чисел содержащихся в данной последовательности ,делящихся на 21.если несложно выложите пожалуйста полный код программы.Заранее благодарен.

[Jakethefish]

function find(m:Int, seq:String):Int;
var
counter,number:Int;
begin
counter:= 0;
for Int i:=0 to strlen(seq) - 1 - m
begin
if StrToInt(Copy(seq,i,m)) mod 21 ==0
    counter++;
end;
result:=counter;
end;

Как то так.

[Serge_Bliznykov]

Jakethefish, согласитесь, тяжко всё таки, когда знаешь один язык (например, C), а потом пытаешься написать программу на другом ЯП (Дельфи, например)...

строки в Pascal/Delphi нумеруются от 1 (единицы)
Типа данных Int нет (есть Integer)
Описывать переменные в теле программы не допускается.
Операция сравнения записывается через унарный знак равно.
Операции наращивания ++ нет (вместо можно Inc(Counter) или Counter := Counter + 1
Операция получения длины строки - Length()

но это всё "цветочки"...
Где в условии задачи сказано, что строка из 1 и 0 - это ДЕСЯТИЧНОЕ представление числа?! Я бы с большей вероятностью предположил, что в задаче речь идёт о двоичной записи.. Впрочем, тут условие задачи допускает двухсмысленность (что, кстати, не очень хорошо для учебных задач)...

А в остальном - всё правильно.

[Jakethefish]

Сообщение от Serge_Bliznykov

Jakethefish, согласитесь, тяжко всё таки, когда знаешь один язык (например, C), а потом пытаешься написать программу на другом ЯП (Дельфи, например)...

строки в Pascal/Delphi нумеруются от 1 (единицы)
Типа данных Int нет (есть Integer)
Описывать переменные в теле программы не допускается.
Операция сравнения записывается через унарный знак равно.
Операции наращивания ++ нет (вместо можно Inc(Counter) или Counter := Counter + 1
Операция получения длины строки - Length()

Да вы правы, начинал с дельфи, перешел на PHP, JAVA , C#.
Кстати по поводу длины строки, нашел стрлен тут: http://delphi.scps.ru/string/str5223.htm .Вероятно автор ресурса не прав . Старался писать как можно точнее, чтобы было меньше ошибок
Я думаю фраза содержащихся в данной последовательности
должна дать понять что если будет 1001, то нужно рассматривать все же 1001, а не 9. Ну по крайней мере я так понял.