Написать функцию логического типа, проверяющую, являются ли все цифры, входящие в натуральную запись числа n различными. pascal

294

467

Посмотреть ответы 2

Ответы на вопрос:

sofia20015

Информатика

4,8(100 оценок)

Function f(n: integer): boolean; var m: set of 0..9; begin m: =[]; f: =true; while n> 0 do begin if (n mod 10) in m then f: =false; m: =m+[n mod 10]; n: =n div 10; end; end; begin writeln(f(12321)); end. результат: false

dmit0

Информатика

4,5(20 оценок)

#include < iostream> using namespace std; int main() { setlocale(lc_all, "russian"); string str1; int count=0; cout < < "программа подсчета количества букв \"к\" строке" < < endl; str1 = "строка"; for (int i = 0; i < str1.length(); i++) if (str1[i] == 'к') count++; cout < < "буква встречается в строке " < < count < < " раз" < < endl; system("pause"); }