<u>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger;
if n>0 then n-=8;
Writeln(n)
end.
Var c: Char;
s: String;
i,k,p: Integer;
Begin
ReadLn(c); {Чтение заданного символа}
ReadLn(s); {Чтение заданного слова}
p:= Pos(c,s); {Определяем позицию символа}
If (p=0) Then {Функция вернёт 0, если символ не будет найден}
WriteLn('Такого символа в слове нет.')
Else {Если символ есть, то ...}
Begin
WriteLn('Указанный символ расположен на позиции: ',p);
k:= 0; {k хранит количество вхождений}
p:= Length(s); {p хранит длину строки(слова)}
For i:=1 To p Do {Пробегаем по всем символам слова}
If (s[i]=c) Then inc(k); {Если символ совпадает, увеличиваем на 1 переменную k}
WriteLn('Количество вхождений данного символа: ',k);
End;
End.
А интернет для чего тебе? Это же лёгкие вопросы!
Program abc;
const
<span> n = 10;
</span>var
<span> m: array [1..n] of integer;
</span><span> i: integer;
</span>begin
<span> for i := 1 to n do
</span><span> begin</span><span> m[i] := sqr(i) - 1;
</span><span> writeln(m[i]);</span><span>
end;
</span><span>end.</span>