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.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016 begin var m,n:integer; Write('Количество строк и столбцов матрицы: '); Read(n,m); var a:=MatrixRandom(n,m,10,99); for var i:=0 to n-1 do begin for var j:=0 to m-1 do Print(a[i,j]); Writeln end; var p:=ReadInteger('Введите число Р:'); var b:array of integer; SetLength(b,4*m); var k:=0; for var i:=n-p to n-1 do for var j:=0 to m-1 do if a[i,j] mod 4=0 then begin b[k]:=a[i,j]; Inc(k) end; SetLength(b,k); b.Print 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.