Function checkstring( s:string ): integer;
var i, k, len: integer;
begin len := length(s);
k := 0;
for i := 1 to len do
begin
if ( s[i] = 'п' ) then
if s[ i + 1 ] = 'о' then
if s[ i + 2 ] = 'л' then inc(k);
end;
checkstring := k;
end;
var str: string;
rez: integer;
begin
write('Введите слово: ');
readln(str);
rez := checkstring(str);
if rez > 0 then writeln('Буквосочетание "пол" встречается в слове в количестве: ', rez)
else writeln('Буквосочетание "пол" в слове не встречается');
<span>end.</span>
Примерно по такой схеме (см. рисунок в приложении):
Маслов- химик
Павлов- баянист
Жирков- художник
Сидоров- писатель
1а2г3б4в
//Pascal ABC.NET 3.1 сборка 1219
Var
f:text;
c,n1,n2,i:integer;
ar1,ar2:array of real;
r:real;
begin
readln(c);
assign(f,'INPUT.TXT');
reset(f);
while not(Eof(f)) do
begin
read(f,r);
if r>c then
begin
inc(n1);
setlength(ar1,n1);
ar1[n1-1]:=r;
end;
if r<c then
begin
inc(n2);
setlength(ar2,n2);
ar2[n2-1]:=r;
end;
end;
close(f);
assign(f,'OUTPUT1.TXT');
rewrite(f);
for i:=0 to n1-1 do
if i<>n1-1 then write(f,ar1[i],' ') else write(f,ar1[i]);
close(f);
writeln('Count of values in OUTPUT1.TXT:',n1);
assign(f,'OUTPUT2.TXT');
rewrite(f);
for i:=0 to n2-1 do
if i<>n2-1 then write(f,ar2[i],' ') else write(f,ar2[i]);
close(f);
writeln('Count of values in OUTPUT2.TXT:',n2);
end.
Пример ввода:
2
Содержимое <span>INPUT.TXT:
1.5 1.75 2 2.25 2.5
Содержимое OUTPUT1.TXT:
2.25 2.5
Содержимое OUTPUT2.TXT:
1.5 1.75
Пример вывода:
Count of values in OUTPUT1.TXT:2
Count of values in OUTPUT2.TXT:2</span>
//PascalABC.NET 3.1 сборка 1219
procedure PrintMatrix(a: array[,] of integer);
begin
for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
begin
writeln;
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
write(a[i, j], ' ');
end;
writeln;
end;
begin
var a := MatrixRandom(ReadInteger('n ='), ReadInteger('m ='), 0, 255);
PrintMatrix(a);
for var i := a.GetLowerBound(0) to (a.GetUpperBound(0) div 2) do
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
swap(a[i, j], a[a.GetLowerBound(0) + a.GetUpperBound(0) - i, j]);
PrintMatrix(a);
end.
