Var a,n: integer;
begin write('Введите a: ');
readln(a);
n:=352346543;
writeln(a,n,a);
<span>end.</span>
Хх37 - 100 вариантов расположения всех цифр
xx73 - еще 100
х3х7 - 100
х7х3 - 100
3хх7 - 100
7хх3 - 100
3х7х - 100
7х3х - 100
...
короче всего 12*100=1200 вариантов
Ответ:
Большой, просторный, светлый дом.
Ребят хороших много в нём.
Красиво пишут и читают.
Рисуют дети и считают...(школа)
Загремел на небе гром,
Сотрясается весь дом
Я зажмурила глаза.
Что на улице...(Гроза)
Он в лесу ночами рыщет,
Пропитанье себе ищет.
Страшно слышать пасти щелк…
Кто в лесу зубастый...(Волк)
При первом проходе программы
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