Вывести на экран наибольший делитель натурального числа n, меньшего заданного натурального m - pascal abc

223

467

Посмотреть ответы 3

Ответы на вопрос:

Serega1418

Информатика

4,7(23 оценок)

Var n,m,d: integer; begin readln(n,m); d: =m-1; while n mod d< > 0 do d: =d-1; writeln(d); end. пример: 100 50 25

бранли

Информатика

4,6(25 оценок)

Program helloworld; var n,m,i: integer; beginn: =20; m: =5; i: =n div 2; while(i> 1)do begin if(n mod i=0)and(i< m) then break; dec(i); end; if(i> 1) then writeln(i) else writeln('error'); end.

lebedd50

Информатика

4,4(58 оценок)

Program p1; uses crt; const n = 5; m = 3; var x: array [1..n,1..m] of integer; j,i,z,k: integer; begin read(z); for i: =1 to n do begin for j: =1 to m do begin x[i,j]: = random (5)-2; write(x[i,j]: 4); end; writeln; end; for i: =1 to n do begin k: =0; for j: =1 to m do begin if (x[i,j]> =0) and (x[i,j] = z)then k: = k+1; end; writeln('кол-во повторений =',k,' в ',i,' строке'); end; end.