Есть ответ 👍

НАДО

КАК ЕЕ ЗАПИСАТЬ?
напишите программу ,которая выполняет подсчет согласных букв в слове
ВОТ ПРИМЕР КАК ДЕЛАТЬ,НО ЭТО ПОДСЧЕТ С РАЗЛИЧНЫХ БУКВ В СЛОВЕ ​

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

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


ответ:{ Составить программу подсчета различных букв в слове. }

var s:string;

r:real;

i,j,n:integer;

begin

r:=0;

readln(s);

for i:=1 to length(s) do begin

n:=0;

for j:=1 to length(s) do begin

if s[i]=s[j] then inc(n);

end;

r:=r+1/n;

end;

writeln('количество различных букв = ', r:1:0);

end.

Объяснение:

Zigmynda11
4,7(71 оценок)

Просто каждый байт перевести в двоичную систему счисления, получится:   10010011.11100110.10011111.000 11001, это и есть ответ(если посчитать то тут 32 цифры)

Популярно: Информатика