Написать функцию на Си
Написать функцию, которая считывает первую отличную от пробела букву строки и объявляет ее своим именем. Использовать эту же функцию для подсчета количества букв в этой строке.
var s:string; k:integer; i:integer;
function f(s: string): char;
var p: integer;
begin
p:=1;
while (p < length(s)) and (s
=' ') do p:=p+1;
f:=s
;
k:=0;
for i:=1 to lengh(s) do begin
if s<>" " then
k:=k+1;
end;
end;
begin
readln(s);
writeln ("первый символ отличающийся от пробела:",f(s));
writeln ("количество символов отличающихся от пробела:",k);
readln;
end.
Как уже поняли задача состоит в том что-бы описать функцию, которая считывает первую букву, отличающеюся от пробела, и объявляет ее своим значением. Использовать эту функцию для подсчета k- количества отличающихся от пробела букв текста.
На паскале все работает только теперь переводя в Си появляются маленькие подводные камни с несовпадением типов... Помогите перевести.