Определить количество кратных пяти элементов числового множества, которое является объединением - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Определить количество кратных пяти элементов числового множества, которое является объединением двух других множеств.

Решение задачи: «Определить количество кратных пяти элементов числового множества, которое является объединением»

textual
Листинг программы
var m1,m2,m:set of byte;
    i,k:byte;
begin
m1:=[5..20];
m2:=[1..10,15..25];
m:=m1*m2;
writeln('Первое множество');
for i:=1 to 25 do
if i in m1 then write(i:3);
writeln;
writeln('Второе множество');
for i:=1 to 25 do
if i in m2 then write(i:3);
writeln;
writeln('Объединение');
k:=0;
for i:=1 to 25 do
if i in m then
 begin
  write(i:3);
  if i mod 5=0 then k:=k+1;
 end;
writeln;
writeln('Количество чисел, кратных 5=',k);
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal ABC.

  1. Создаются две переменные m1 и m2, которые представляют собой множества (set) байтов от 5 до 20 и от 1 до 10, соответственно.
  2. Создается переменная m, которая представляет собой объединение множеств m1 и m2.
  3. Выводится сообщение Первое множество и для каждого числа от 1 до 25, если число принадлежит множеству m1, то оно выводится на экран.
  4. Выводится сообщение Второе множество и для каждого числа от 1 до 25, если число принадлежит множеству m2, то оно выводится на экран.
  5. Выводится сообщение Объединение.
  6. Задается переменная k, которая будет использоваться для подсчета количества чисел, кратных 5.
  7. Для каждого числа от 1 до 25, если число принадлежит множеству m, то оно выводится на экран, и значение переменной k увеличивается на 1, если число кратно 5.
  8. В конце выводится сообщение с количеством чисел, кратных 5.

Оцени полезность:

15   голосов , оценка 3.667 из 5
Похожие ответы