#include <iostream>
#include <set>
#include <iterator>
using namespace std;
int main()
{
string s;
set<char> mySet;
set<char>::iterator it;
int k=0;
cout << "s = ", cin >> s, cout << endl;
for(int i=0;i<s.length();i++)
mySet.insert(s[i]);
for(it=mySet.begin(); it!=mySet.end(); ++it)
cout<<*it<<" ";
k=mySet.size();
cout << endl << "k = " << k;
return 0;
}
Вариант с вводом элементов:
Program prog;
uses crt;
var a: array [0..999] of integer;
i, k, n: integer;
begin
clrscr;
write('Размер массива n = ');
readln(n);
writeln;
for i:=1 to n do
begin
write('a[',i,'] = ');
readln (a[i]);
end;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln;
writeln('Количество четных чисел k = ', k);
end.
Вариант с рандомными элементами:
Program prog;
uses crt;
var a: array [0..999] of integer;
i, k, n: integer;
begin
clrscr;
randomize;
write('Размер массива n = ');
readln(n);
writeln;
for i:=1 to n do
begin
a[i]:=random(100)-50;
writeln('a[',i,'] = ',a[i]);
end;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln;
writeln('Количество четных чисел k =' , k);
end.