Var N,B,k:integer; Begin Write('N = ');ReadLn(N); Write('Искомые числа:'); For N:= 1 to N do Begin B:=N; k:=1; // перед каждой проверкой k:=1 // и если число не делится на любую из своих цифр, то k:=0 While B > 0 do Begin if B mod 10 = 0 then k:=0 // B mod 10 - это остаток от деления B на 10 // то есть, например, 123 mod 10 = 3 else if N mod (B mod 10) > 0 then k:=0; B:=B div 10 // целая часть от деления B на 10 // 123 div 10 = 12 End; if k = 1 then Write(' ',N) End; End.
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 unit MatInt;
interface
type Matrix=array[,] of integer;
function MatCreate(m,n:integer):Matrix; procedure MatPrint(a:Matrix;w:integer); procedure MatMax(a:Matrix;var x,imax,jmax:integer);
implementation
function MatCreate(m,n:integer):Matrix; // создает матрицу и инициализирует её нулями begin SetLength(Result,m,n); end;
procedure MatPrint(a:Matrix;w:integer); // выводит матрицу, отводя w позиций под элемент begin var n:=Length(a,1)-1; for var i:=0 to Length(a,0)-1 do begin for var j:=0 to n do Write(a[i,j]:w); Writeln end end;
procedure MatMax(a:Matrix;var x,imax,jmax:integer); // возвращает значение максимального элемента и его координаты begin imax:=0; jmax:=0; var n:=Length(a,1)-1; for var i:=0 to Length(a,0)-1 do for var j:=0 to n do if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j); Inc(imax); Inc(jmax); x:=a[imax-1,jmax-1] end;
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 uses MatInt; begin var a:=MatCreate(5,8); var n:=Length(a,1)-1; for var i:=0 to Length(a,0)-1 do for var j:=0 to n do a[i,j]:=Random(-50,50); MatPrint(a,4); var irow,jcol,max:integer; MatMax(a,max,irow,jcol); Writeln('Максимальный А[',irow,',',jcol,']=',max) end.
тут у тебя не понятно
Объяснение:
размытое все можешь сфоткать нормально