Написать функцию, подсчитывающую количество элементов во множестве А типа М

@B00M · Регистрация: 17.02.2014

Author24 — интернет-сервис помощи студентам

Народ такое вот условие для программы понятие не иею что тут делать подскажите пожалуйста

Пусть дан фрагмент программы. Опишите функцию Card(A), подсчитывающую количество элементов во множестве А типа М. Например, Card([5, 8, 23])=3.
Type
М = set of 1..99;

@bormant · 24.03.2014, 10:47

Pascal

type
  M = set of 1..99;
function Card(a: M): integer;
var
  i, c: integer;
begin
  c:=0;
  for i:=1 to 99 do if i in a then inc(c);
  Card:=c;
end;

@B00M 0 / 0 / 0 Регистрация: 17.02.2014 Сообщений: 39
		1
	Написать функцию, подсчитывающую количество элементов во множестве А типа М 24.03.2014, 07:51. Показов 1982. Ответов 1 Метки нет (Все метки) Народ такое вот условие для программы понятие не иею что тут делать подскажите пожалуйста Пусть дан фрагмент программы. Опишите функцию Card(A), подсчитывающую количество элементов во множестве А типа М. Например, Card([5, 8, 23])=3. Type М = set of 1..99; 0

	24.03.2014, 10:47

Написать функцию, подсчитывающую количество элементов во множестве А типа М

Решение