var s,s1:string;
i,j,count:integer;
begin
read(s);
for i:=length(s) downto 2 do
for j:=2 to i do
if s[j]<s[j-1] then begin
swap(s[j],s[j-1]);
s1:=s;
end;
//сортируем строку в алфавитном порядке чтобы потом было легче
//считать количество встреч одного и того же символа
count:=1;
write(s1[1],': ');
//первый символ в любом случае встречается один раз
for i:=2 to length(s1) do
if s1[i]=s1[i-1] then inc(count) else begin
writeln(count);
write(s1[i],': ');
count:=1
end;
//считаем количество совпадений для каждого символа
writeln(count);
end.
1.
а)
var a, b: integer;
read(a, b);
writeln((a + b) / 2);
б)
var a, b, c, d, e: integer;
read(a, b,c, d, e);
writeln(a*a, b*b, c*c, d*d, e*e);
в) Не знаю это.
д) Решето Эратосфена.
2)
а)
array [1..n] of integer;
var c: integer;
c := 1;
read(n);
while //запускаем цикл для ввода значений массива и подсчёта произведения
read(a[n]);
c = c * a[n];
end;
writeln(c);
б)
array [1..n] of integer;
var c: integer;
read(a[0]);
c := a[0];
while //запускаем цикл для ввода значений массива и определения максимального элемента
read(a[n]);
if {
c > a[n];
} then c := a[n];
end;
writeln(c);
в)
array [1..n] of integer;
var c: integer; //переменная-счётчик
while //запускаем цикл для ввода значений массива и определения количества отрицательных чисел
if {
a[n] < 0;
} then c := c + 1;
end;
writeln(c);
г)
array [1..n] of integer;
var c: integer; //переменная-счётчик
while //запускаем цикл с позиции a[1] для ввода значений массива и определения количества искомых элементов
if {
a[n] = a[0];
} then c := c + 1;
end;
writeln(c);