Ошибок тут больше одной.
Во-первых, в операторе вывода стоит вызов функции 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, производящая поиск подстроки в строке...
var a:integer;
begin
for a:=1 to 10000 do
begin
if (a mod 10 =8)and(a mod 3 =0) then writeln(a);
end;
end.
(смотрите рисунок)
AC=ADEC=3+1+1=5
ответ 2) 5
Может быть 1, так как 3 буква гласная-а и последняя буква согсасная-н
1. Добавлено 9 бит, так как в маске 255.0.0.0 - 8 единичных бит,
а в маске 255.255.128.0 - 17 единичных бит
2. Судя по маске получим 512 подсетей
3. В каждой подсети по 32766 узлов + адрес подсети + широковещательный адрес
4. Сетевой адрес этой подсети 10.101.0.0
5. Адрес IPv4 первого узла в этой подсети 10.101.0.1
6. Адрес IPv4 последнего узла в этой подсети 10.101.127.254
7. Широковещательный адрес IPv4 в этой подсети 10.101.127.255
