1.
var N: integer;
var s: string;
begin
write('Введите строку: ');
readln(s);
write('Введите N: ');
readln(N);
if (s.Length>N) then s:=s.Substring(0,N);
writeln('Результат: ',s);
end.
2.1 (С циклом For)
var s: string;
var c: char;
var i,n: integer;
begin
n:=0;
write('Введите строку: ');
readln(s);
write('Введите символ: ');
readln(c);
for i:=1 to s.Length do
if (s[i]=c) then n:=n+1;
writeln('Символ ',c,' встречается в тексте ',n,' раз');
end.
2.2 (С циклом Repeat)
var s: string;
var c: char;
var i,n: integer;
begin
n:=0;
i:=1;
write('Введите строку: ');
readln(s);
write('Введите символ: ');
readln(c);
Repeat begin
if (s[i]=c) then n:=n+1;
i:=i+1;
end;
until i=s.Length+1;
writeln('Символ ',c,' встречается в тексте ',n,' раз');
end.
