|
sample01.PAS |
|
{* Подсчет букв в слове *}Unit SAMPLE01; InterfaceImplementationBegin writeln( '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. '); End. Program pas;
Uses sample01.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
s : String;
r : real;
i : integer;
j : integer;
n : integer;
Begin
r := 0;
readln(s);
For i := 1 To length(s) Do {* Увеличиваем i от 1 до length(s) с шагом 1 *}
Begin
n := 0;
For j := 1 To length(s) Do {* Цикл для j => [1 .. length(s)] *}
Begin
If s[i] = s[j] Then
inc(n); {* Увеличиваем n на 1 *}
End;
r := r + 1 / n;
End;
writeln( 'количество различных букв = ', r : 1 : 0);
End.
|