|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.04.2011, 13:07 | #1 |
Пользователь
Регистрация: 14.03.2011
Сообщений: 24
|
выбор простых чисел
Имеется программа для выбора из z [i,j] := x[i] * y[j] чисел, остаток деления на 9 равен 1 и их распечатка в виде таблицы. Как дополнить представленную программу, чтобы из выбранных таким образом чисел, выбрать простые числа (делящиеся нацело только на себя и 1) и, также распечатать их в таблице.
program tabl6; const n = 20; m = 12; r = 6; c = 3; p = ' '; var z: array[1..n, 1..m] of integer; x: array[1..n] of integer; y: array[1..m] of integer; i, j, k: byte; begin writeln; write(p:c, '|'); for j := 1 to m do write(j:r, '|'); writeln; write('---+'); for k := 1 to m do write('------+'); writeln; for i := 1 to n do begin Write(i:c, '|'); for j := 1 to m do begin x[i] := 2 * i + 1; y[j] := 2 * j + 1; z[i, j] := x[i] * y[j]; if z[i, j] mod 9 = 1 then Write(b[i, j]:r, '|') else Write(p:r, '|') end; Writeln; write('---+'); for k := 1 to m do write('------+'); writeln; end; Readln end. |
09.04.2011, 13:16 | #2 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
написать функцию опред. простоту числа
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" Последний раз редактировалось Mad_Cat; 09.04.2011 в 13:19. |
09.04.2011, 15:32 | #3 | |
Пользователь
Регистрация: 14.03.2011
Сообщений: 24
|
Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Первые 30 простых чисел | Fantom.as | Общие вопросы C/C++ | 11 | 19.04.2015 09:10 |
массив из простых чисел | amikulia | Помощь студентам | 1 | 14.01.2011 13:07 |
Массив простых чисел | Anni12 | Общие вопросы C/C++ | 2 | 07.12.2010 21:34 |
Вычисление простых чисел | HuKuTa74 | Помощь студентам | 7 | 07.12.2010 09:36 |
Вывод простых чисел. | MAKEDON | Помощь студентам | 1 | 10.03.2009 16:55 |