Составил программу под : даны два натуральных числа m и n проверить есть ли в записи числа m цифры числа n, но на экран не выводится ответ, найти ошибку. var n,m,n1: integer; f: boolean; begin readln (n,m); f: =false; while n> 0 do begin n1: =n; while n1> 0 do begin if m mod 10=n1 mod 10 then f: =true; n1: =n1 div 10; end; n1: =n1 div 10; end; if f=true then write('да') else writeln ('нет'); end.

Если доска квадратная, то можно поставить n ладей по одной вертикали - ясно, что они будут держать под угрозой всю доску. Если же ладей меньше, чем n, то найдется по крайней мере одна горизонталь и одна вертикаль, на которой не будет находиться ни одной ладьи. Так как ладьи бьют только по этим линиям, то их пересечение не будет под угрозой, значит, меньше чем n ладей быть не может. Если же доска не квадратная, аналогично достаточно выставить ряд ладей по меньшей стороне, доказательство аналогично.

Program pm;
uses crt;
var X:array[1..1000] of integer; k,a,b,i:integer;
begin
clrscr;
write('Введите кол-во элементов массива: ');
read(k);
writeln;
write('Введите диапазон значений заполнения(A-начальное значение, B-конечное): ');
repeat
read(a,b);
until a<=b;
writeln;
randomize;
for i:=1 to k do X[i]:=random(b-a+1)+a;
writeln('Ваш массив:');
for i:=1 to k do write(X[i]:5);
writeln;
write('Введите элемент поиска: ');
read(b);
a:=0;
for i:=1 to k do if X[i]=b then a:=i;
if a>0 then writeln('Элемент со значением ',b,' имеет индекс ',a)
else writeln('Элемента не существует!');
readkey;
end.