Предмет: Информатика,
автор: MrAppleGreen
помогите написать программу на паскале, используя циклы!!!
Найти количество различных цифр данного натурального числа.
Ответы
Автор ответа:
0
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var s:=RegEx.Match(ReadlnString('Число:'),'d*');
Println('Принято число',s);
Println('Разных цифр',s.ToString.Distinct.Count)
end.
Тестовое решение:
Число: 32647034554934932reert54654643#$%
Принято число 32647034554934932
Разных цифр 8
begin
var s:=RegEx.Match(ReadlnString('Число:'),'d*');
Println('Принято число',s);
Println('Разных цифр',s.ToString.Distinct.Count)
end.
Тестовое решение:
Число: 32647034554934932reert54654643#$%
Принято число 32647034554934932
Разных цифр 8
Похожие вопросы
Предмет: Другие предметы,
автор: mimpop
Предмет: Информатика,
автор: prisuhamaria
Предмет: Математика,
автор: matinabdyl56
Предмет: Химия,
автор: Milochka007