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