Ошибок тут больше одной.
Во-первых, в операторе вывода стоит вызов функции ups, которой в качестве второго аргумента передается неизвестная переменная a. Если имелся в виду символ "а", его надо было заключить в одинарные кавычки.
Во-вторых, в теле функции ups определяется значение n в цикле. Даже, если искомый символ найден и n получит значение позиции этого символа в слове, то если слово просмотрено не полностью, следующий же проход по циклу снова сбросит n в ноль. Следовательно, эта функция будет выдавать верный результат только если искомая буква - последняя в слове.
var
slovo: string;
i: integer;
function ups(var s: string; ch: char): integer;
var
i, n: integer;
begin
i:=1;
n:=0;
while (i<=length(s)) and (n=0) do
begin
if s[i] = ch then n := i;
i:=i+1
end;
ups:=n
end;
begin
writeln('vvedite slovo');
readln(slovo); writeln('N = ', ups(slovo, 'a'));
end.
Замечание: в языке Паскаль имеется функция Pos, производящая поиск подстроки в строке...
Объект- это структура, а область-это пространственная площадь либо сфера деятельности
Я пример не могу привести
Вот для любой подойдет в выделенной области выбираешь стиль с контуром в в изменении фигуры -можешь задать толщину линии.
1. Терминал, консоль, phpmyadmin.
2. База знаний — совокупность знаний, относящихся к некоторой предметной области и формально представленных таким образом, чтобы на их основе можно было осуществлять рассуждения.
3.
- Минимальная избыточность.
- Непротиворечивость.
-
Целостность данных.
-
Независимость данных.
-
Возможность ведения (добавления и удаления) и актуализации (корректировки, модификации) данных.
- Безопасность и секретность.
-
Высокая производительность.
- Минимальные затраты.
- Соблюдение стандартов.
4. Access, SQL Server
5. Здравоохранения, сайты, издательский бизнес.