1) Название: Алгоритмы. Построение и анализ.
Автор: Томас Кормен, Чарльз Лейзерсон, Рональд Ривест, Клиффорд Штайн
Издательство: Вильямс
Год: 2012
Страниц: 1296 стр.
2) Компьютерная графика. Популярная энциклопедия.
Автор: В.И.Мураховский
Издательство: АСТ-Пресс
Год: 2002
Страниц 640 стр.
3) Компьюерная обработка информации
Автор: А.Н.Денисенко
Издательство: Медпрактика -М
Год: 2010
Страниц 252 4) Автор: Макарова Н.В.Издательство: СПб.: Питер
Год издания: 2010
Страниц: 161
5) Название: Технология. 2 класс. Учебник.
Автор: Роговцева Н.И., Богданова Н.В., Добромыслова Н.В.
Издательство: Просвещение
Год издания: 2012
Страниц: 98
При первом проходе программы
m=0
в цикле for сравниваем Если элемент массива под номером 1 (т.е. число 2) минус 2*m>1 то m равна текущему элементу массива.
т.к. 2-2*0=2 и это больше 0 то значение m становится равным 2
1 проход m=2
При втором проходе цикла фор сравниваем уже второй элемент массива, т.е.
Dat[2]-2*m>1
6-2*2>1
2>1
Условие выполняется значит значение m на 2 проходе равно 6
при дальнейших проходах цикла for мы больше не получим значений больше 1 т.к. текущее m=6, т.е. из элементов массива мы будем вычитать 12, т.е. ни одного положительного числа мы не получим, т.е. условие if не выполнится ни разу и значение m не изменится
ответ m=6
//--------------------------------------------
var
S: string;
i, counts: byte;
begin
counts := 0;
write('Введите S: ');
readln(s);
for i := 1 to length(s) do
if S[i] = '9' then
counts := counts + 1;
writeln('Количество "9" = ', counts);
readln;
end.