355=101100011
650=1010001010
955=1110111011
Var s:string;
a:array['a'..'z'] of integer;
i:integer; c:char;
begin
writeln('Введите строку:');
readln(s);
for c:='a' to 'z' do a[c]:=0;
for i:=1 to length(s) do
if (s[i]>='a')and(s[i]<='z') then a[s[i]]:=a[s[i]]+1;
for c:='a' to 'z' do
if a[c]>0 then writeln(c,' ',a[c]);
end.
Программа:
Введите строку:
fhb5kbfыshfm.
b 2
f 3
h 2
k 1
m 1
s 1
Если это среда разработки то нужно объявить переменные X и Y
далее написать схему выполнения данной задачи
Весь текст до определить - 6256
<span>"КТО ВЛАДЕЕТ ИНФОРМАЦИЕЙ, ТОТ ВЛАДЕЕТ МИРОМ" - 360</span>
количество возможных вариантов N в степени 10