Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Дан одномерный массив.Проверить встречается ли в нем символ знак вопроса и посчитать сколько раз

Ответ оставил Гость

Var s:string;
n,l,k,i:integer;
begin
write (Введите строку: );
readln(s);
n:=0;
l:=0;
k:=0;
for i:=1 to length(s) do
begin
n:=ord(?);
l:=ord(s[i]);
if n=l then k:=k+1;
end;
WRITELN;
if k=0 then writeln (Знак вопроса ни разу не встретился в строке.)
else writeln (Знак вопроса встретился ,k, раз строке.);
end.