Напечатать для каждого числа от M до N его минимальный делитель, не равный 1

@kirill177 · Регистрация: 22.12.2014

Author24 — интернет-сервис помощи студентам

@APALoff · 22.12.2014, 11:07

Pascal

For i:=M to N do
  For j:=2 to i do
    If i mod j=0 then
    Begin
      Writeln(i,'   ',j);
      Break;
    End;

@Puporev · 22.12.2014, 11:12

Pascal

var m,n,i,j,k:integer;
begin
repeat
writeln('Введите диапазон натуральных чисел m<n');
readln(m,n);
until(m>0)and(n>m);
for i:=m to n do
 begin
  write(i,'=');
  j:=2;
  k:=0;
  while(j<=i div 2)and(k=0) do
  if i mod j=0 then
   begin
    k:=1;
    writeln(j)//если появился делитель, выводим его и выходим из цикла
   end
  else inc(j);
  if k=0 then writeln(i)//если делителей нет, число простое, выводим его
 end;
end.

@APALoff · 22.12.2014, 11:23

Ну пусть будет полный вариант...

Pascal

Const
  m = 2;
  N = 100;
Var i,j : Integer;
Begin
For i:=M to N do
  For j:=2 to i do
    If i mod j=0 then
    Begin
      Writeln(i,'   ',j);
      Break;
    End;
end.

@kirill177 0 / 0 / 0 Регистрация: 22.12.2014 Сообщений: 1
		1
	Напечатать для каждого числа от M до N его минимальный делитель, не равный 1 22.12.2014, 10:51. Показов 1147. Ответов 3 Метки нет (Все метки) Напечатать для каждого числа от M до N его минимальный делитель, не равный 1 0

	22.12.2014, 11:23