Алгоритмы и программы. Афанасьева Т. В - 103 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

103
Пример 6.5. Составить программу, реализующую нахождение суммы
элементов множества [3..27].
program mnog5;
var
a:set of 3..27; {объявление множества}
s,n:integer;
begin
s:=0;
for n:=3 to 27 do
s:=s+n; {Суммирование элементов}
writeln('Сумма элементов множества [3..27] равна ',s,'.');
end.
Пример 6.6. Составить программу, реализующую создание
множества с помощью датчика случайных чисел. Удалить из него все
элементы кратные 3.
program mnog6;
var
a:set of 1..25; {объявление множества}
k,n,elem:integer;
begin
writeln(' исходное множество:');
randomize;
for n:=1 to 10 do
begin
elem:=random(25);
a:=a+ [elem]; {Создание множества}
write(' ',elem);
if (elem mod 3=0) then
begin {Удаление из множества}
a:=a–[elem]; {элементов кpатных 3}
k:=k+1;
end;
end;
writeln;
writeln(' полученное множество:');
for n:=1 to 24 do {Вывод множества}
if n in a then
write(' ',n);
end.

Страницы