Найти все целые числа из промежутка от a до b

@Sebelia · Регистрация: 02.11.2012

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

Найти все целые числа из промежутка от a до b у которых ровно n делителей.Использовать процедуру или функцию.

@masterpiece · 02.11.2012, 16:51

Где-то так

Pascal

Var a,b,r,i,j,k,t:integer;
  procedure qwer;
begin
   For i:=a to b do
     Begin
      k:=0;
      For j:=1 to i do
       if i mod j = 0 then inc(k);
      if k=r then
      Begin
       write(i:3);
       inc(t);
      End;
     End;
end;
 
Begin
    t:=0;
    Repeat
    write('Введите a,b: ');readln(a,b);
    Until a<b;
    write('Введите R: ');readln(r);
    qwer;
    if t=0 then writeln('Нету таких чисел');
    readln
End.

@Sebelia 1 / 1 / 0 Регистрация: 02.11.2012 Сообщений: 47
		1
	Найти все целые числа из промежутка от a до b 02.11.2012, 16:44. Показов 1173. Ответов 1 Метки нет (Все метки) Найти все целые числа из промежутка от a до b у которых ровно n делителей.Использовать процедуру или функцию. 0

	02.11.2012, 16:51

Найти все целые числа из промежутка от a до b

Решение