Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Вопросы начинающих программистов
Перезагрузить страницу Задача на нахождение делителя.
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Dozor!2 Dozor!2 вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 20.05.2020
Unhappy Задача на нахождение делителя. - 20.05.2020, 16:35

Задача: Составить программу для графического изображения делимости чисел от 1 до n (значение n вводится с клавиатуры и не может превышать 100). В каждой строке надо напечатать очередное число и его простые делители. Например, если n 4, то на экране должно быть напечатано:
1: 1
2: 1 2
3: 1 3
4: 1 2
Необходимо решить в BASIC.
Ответить с цитированием
  (#2 (permalink)) Старый
deckard deckard вне форума
Member
 
Сообщений: 98
Сказал(а) спасибо: 0
Поблагодарили 9 раз(а) в 9 сообщениях
Регистрация: 04.03.2008
По умолчанию 20.05.2020, 19:15

basic Код:
'qbasic
DIM prost(100)
'Найти все простые числа от 1 до 100
FOR i = 1 TO 100
m = 0
FOR j = 1 TO i
  IF i / j = INT(i / j) THEN m = m + 1
NEXT j
' отметить число как простое
IF m <= 2 THEN prost(i) = -1
NEXT i
' перейти к решению задачи
retry:
CLS
PRINT "wwedite celoe ot 1 do 100"
INPUT "n=", n
IF n < 1 OR n > 100 OR n <> INT(n) THEN GOTO retry
FOR i = 1 TO n
  PRINT i; ":";
  FOR j = 1 TO i
    IF i / j = INT(i / j) AND prost(j) <> 0 THEN PRINT j;
  NEXT j: PRINT
NEXT i
Ответить с цитированием
Пользователь сказал cпасибо:
Dozor!2 (20.05.2020)
Ads
Ответ

Метки
basic , делители , задача , задача на делители

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите, задача по прологу, срочно...задача с высказываниями 4ixOn Prolog 6 10.07.2011 23:29
Помогите, задача по прологу, срочно...задача о станках 4ixOn Prolog 3 09.07.2011 22:48
нахождение min и max пути Queezi Prolog 12 25.04.2011 22:19
Нахождение пути в лабиринте SergAnt007 Prolog 7 27.03.2011 22:21
Числовая задача на нахождение неизвестного числа на С++ Юка4Ка Вопросы начинающих программистов 6 15.02.2011 21:05
Задача на нахождение оставшихся работ по введенной текущей Willthorn Prolog 12 16.12.2010 15:39
Написать функцию нахождения наибольший общий делителя двух натуральных чисел. DrDre9991 Pascal 1 13.10.2010 17:19
Нахождение наибольшего общего делителя Gock C++ Builder 2 29.03.2010 19:34
Нахождение элемента в списке tigerx2 Prolog 10 26.11.2009 00:11
Алгоритм нахождения наибольшего общего делителя двух заданных чисел imported_Настасья Вопросы начинающих программистов 3 24.11.2005 20:54
Нахождение всех последовательностей imported_mus Алгоритмы 6 29.05.2005 16:55
Нахождение функций в DLL Rem Visual C++ 5 03.06.2004 13:26



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов