Регистрация
soboleff2005
11.03.2020 15:11
Информатика
Есть ответ 👍

Вpascal надо создать алгоритм с диалогом на 10 вопросов включающие линейные функции

202
275
Посмотреть ответы 1

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

ClarisVerbis
ClarisVerbis
4,8(41 оценок)

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

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.

Объяснение:

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