Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Mariella
0 / 0 / 0
Регистрация: 27.04.2016
Сообщений: 33
1

Заполнить множество n элементами по следующему правилу и вывести элементы на экран

20.12.2016, 18:08. Просмотров 797. Ответов 2
Метки нет (Все метки)

Заполнить множество n элементами по следующему правилу и вывести элементы на экран: {x<=100;x-число простое,т.е. делится только на себя и на 1}
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.12.2016, 18:08
Ответы с готовыми решениями:

Заполнить квадратную матрицу порядка N по следующему правилу
Заполнить квадратную матрицу порядка N по следующему правилу: элементы четных строк совпадают с...

Заполнить квадратную матрицу порядка N по следующему правилу
3. Решить задачу: заполнить квадратную матрицу порядка N по следующему правилу: по периметру...

Заполнить квадратную матрицу порядка N по следующему правилу
Заполнить квадратную матрицу порядка N по следующему правилу: &quot;шахматная доска&quot; — чередовать в...

Заполнить по заданному правилу и вывести на экран одномерный массив
1. Заполните и выведите на экран одномерный массив А для n&gt;=4 так, чтобы первый элемент был равен...

Сформировать матрицу А(20,20) по следующему правилу: верхнюю половину заполнить нулями, а нижнюю – единицами
Сформировать матрицу А(20,20) по следующему правилу: верхнюю половину заполнить нулями, а нижнюю –...

2
Tosse
57 / 57 / 114
Регистрация: 09.12.2016
Сообщений: 143
20.12.2016, 21:32 2
Лучший ответ Сообщение было отмечено Mariella как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
const
Xmax = 100;
type
T_n = set of byte;
var
m,n:T_n;
x, i, a:byte;
begin
m:=[2..Xmax];
n:=[2];
x:=2;
while m <> [] do
    begin
    a:=x;
    while a <= Xmax do
        begin
        Exclude(m,a);
        a:=a+x;
        end;
    Include(n,x);
    repeat
        inc(x);
    until (x in m) or (x > Xmax)
    end;
writeln('Множество простых чисел на промежутке от 1 до100');
for i:=1 to Xmax do
    if i in n then
        write(i:5)
end.
0
Mariella
0 / 0 / 0
Регистрация: 27.04.2016
Сообщений: 33
20.12.2016, 21:39  [ТС] 3
Спасибо!!!!!!
0
20.12.2016, 21:39
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.12.2016, 21:39

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Сформировать множество S1, элементами которого есть целые числа, вывести это множество на экран
Также нужно посчитать количество отрицательных чисел, которые имеються в множестве. Помогите...

Заполнить матрицу по следующему правилу
Объявить целочисленную квадратную матрицу порядка n. Вывести на экран матрицу, заполненную по...

Заполнить множество случайными числами и вывести на экран
как сделать так, чтобы заполнение массивов a и b было рандомными цифрами и чтобы они выводились на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.