<span>
1)<span>101010101 = </span>765 удачи вам !!!!!!</span><span><span><span /><span /></span></span>
Посмотрите объяснение на рис. (Ответ 2)
Var a: string;
begin
write ('Введите слово: '); read (a);
writeln ('Именительный падеж: ',copy(a,1,length(a)));
writeln ('Родительный падеж: ',copy(a,1,length(a)-1),'ы');
writeln ('Дательный падеж: ',copy(a,1,length(a)-1),'е');
writeln ('Винительный падеж: ',copy(a,1,length(a)-1),'у');
writeln ('Творительный падеж: ',copy(a,1,length(a)-1),'ой');
writeln ('Предложный падеж: ',copy(a,1,length(a)-1),'е');
end.
Основной момент, это удаление окончания путем копирования слова в строке a начиная с первого символа, до длины слова минус 1 символ.
Var
f:char;
s:string
i.k:integer;
begin
readln(f,s);
k:=0;
for i:= 1 to length(s) do begin
if s[i]=f then k:=k+1;
if k=2 then writeln(i);
end;
if k=1 then writeln("-1");
if k=0 then writeln("-2");
end.