Описать процедуру print(A), выводящую на экран элементы множества А в порядке возрастания (убывания)

29.06.2014, 20:51. **Показов** 1455. **Ответов** 1

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

Дано множество натуральных чисел A, находящихся в диапазоне от 0 до 99. Описать процедуру print(A), выводящую на экран элементы множе-ства А в порядке возрастания (убывания);

@Cyborg Drone · 30.06.2014, 01:59

Pascal

type st = set of byte;
procedure print(a: st);
var i: byte;
begin
  for i := 0 to 99 do if i in a then write(i:3);
  writeln
end;

fuild
		1
	Описать процедуру print(A), выводящую на экран элементы множества А в порядке возрастания (убывания) 29.06.2014, 20:51. Показов 1455. Ответов 1 Метки нет (Все метки) Дано множество натуральных чисел A, находящихся в диапазоне от 0 до 99. Описать процедуру print(A), выводящую на экран элементы множе-ства А в порядке возрастания (убывания);

	30.06.2014, 01:59

Опции темы

Описать процедуру print(A), выводящую на экран элементы множества А в порядке возрастания (убывания)

Решение