Личные (неимущественные) права человека. Отметь галочкой Да или Нет

Имущественное право-нет

Право на авторство-да

Право на имя-да

Объяснение:

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.

вроде бы 100*100=10000 бит=1250 байта