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

@Sunchild_ · Регистрация: 05.06.2012

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

Помогите решить прожалуйста...
Найти все целые числа из промежутка от а до в, у которых количество делителей R. Если таких чисел нет, то должно быть соотсвествующее сообщение.

@CodeR · 05.06.2012, 08:09

Pascal

Var a,b,r,i,j,k,t:integer;
Begin
    t:=0;
    Repeat
    write('Введите a,b: ');readln(a,b);
    Until a<b;
    write('Введите R: ');readln(r);
    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;
    if t=0 then writeln('Нету таких чисел');
End.

@Sunchild_ 0 / 0 / 0 Регистрация: 05.06.2012 Сообщений: 4
		1
	Найти все целые числа из промежутка от а до в 05.06.2012, 07:31. Показов 1447. Ответов 1 Метки нет (Все метки) Помогите решить прожалуйста... Найти все целые числа из промежутка от а до в, у которых количество делителей R. Если таких чисел нет, то должно быть соотсвествующее сообщение. 0

	05.06.2012, 08:09

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

Решение