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

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

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

Код к задаче: «Определить количество кратных пяти элементов числового множества, которое является объединением - 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.

15   голосов, оценка 3.667 из 5


СОХРАНИТЬ ССЫЛКУ