Определить множество цифр, которые используются в записи числа

@Лена123 · Регистрация: 13.03.2015

Дано многозначное число. Определить множество цифр, которые используются в записи этого числа.

Verevkin · 13.03.2015, 07:42

так чтоль?

Pascal

var
  d: set of [0..9];
  x: longword;
begin
  d:= [];
  x:= 17650654;
  repeat
    include(d, x mod 10);
    x:= x div 10;
  until x = 0;
end;

@Лена123 0 / 0 / 0 Регистрация: 13.03.2015 Сообщений: 27
		1
	Определить множество цифр, которые используются в записи числа 13.03.2015, 07:03. Показов 2099. Ответов 1 Метки нет (Все метки) Дано многозначное число. Определить множество цифр, которые используются в записи этого числа. 0

Опции темы

Решение