ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ В ПАСКАЛЬ

0
Найти все целые числа из промежутка от А до В, у которых количество делителей равно К. Если таких чисел нет, то должно быть напечатано соответствующее сообщение.
21 апреля аноним,  в категории Компьютеры, Интернет
 
Ваш ответ
Отображаемое имя (по желанию):
Анти-спам проверка:

1 Ответ
0
21 апреля аноним, 
Var a,b,k,k1,k2,i,j:integer;
Begin
 write('Введите [a,b]: ');readln(a,b);
 write('Введите k: ');readln(k);
 k2:=0;
 For i:=a to b do
 Begin
 if i=1 then k1:=1
 else k1:=2;
 For j:=2 to i div 2 do
 if i mod j = 0 then inc(k1);
 if k1=k then
 Begin
 write(i,' ');
 inc(k2);
 End;
 End;
 if k2=0 then writeln('Нету таких чисел!');
End.
Copyright © 2016 Вопросы и ответы онлайн - sovety.info | Для связи: site@sovety.info
Мнение редакции может не совпадать с мнением авторов вопросов и ответов.
Индекс цитирования
...