В информатике важную роль играют алгоритмы поиска вхождения подстроки в строку. Например, в строке «АБРАКАДАБРА» подстрока «БРА» встречается два раза, а подстрока из одного символа «А» встречается пять раз. Под количеством вхождений понимается количество выбрать несколько подряд идущих символов, совпадающих (в том же порядке) с искомой подстрокой. Найденные вхождения могут пересекаться, то есть один символ может быть составной частью нескольких вхождений. Интерес представляют эффективные алгоритмы поиска вхождений подстроки в строку, то есть алгоритмы, быстро работающие для больших строк. Поэтому мы будем рассматривать в этой задаче случай, когда исходная строка представляет собой многократное повторение какой-то маленькой строки.

Например, рассмотрим строку «МАМА» и повторим её 3 раза. Получится строка «МАМАМАМАМАМА». В этой строке подстрока «АМА» встречается 5 раз: «МАМАМАМАМАМА», «МАМАМАМАМАМА», «МАМАMАМАМАМА», «МАМАМАМАМАМА», «МАМАМАМАМАМА».

ответьте на вопросы

Если строку «БАОБАБ» повторить 100 раз, то сколько раз в ней будет встречаться подстрока «БА»?
Если строку «РЕМАРКА» повторить 100 раз, то сколько раз в ней будет встречаться подстрока «АР»?
Если строку «АУАУОАУАУ» повторить 100 раз, то сколько раз в ней будет встречаться подстрока «АУАУ»?
Если строку «ОЙОЙ» повторить 100 раз, то сколько раз в ней будет встречаться подстрока «ЙОЙОЙ»?
Если строку «А» повторить 100 раз, то сколько в ней раз будет встречаться подстрока «A», повторённая 50 раз?
ответ на это задание запишите в виде пяти чисел, каждое число в отдельной строке — ответы на заданные вопросы именно в таком порядке. Если вы не можете найти ответ на какой-то из пяти вопросов, запишите в этой строке любое натуральное число.

1.

program z1;

const n=5;

var a:array [1..n,1..n] of integer;

i,j,s:integer;

begin

writeln ('Квадратная матрица:');

for i:= 1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=Random(10);

write(a[i,j]:3);

if i=j then s:=s+a[i,j]

end;

writeln;

end;

writeln('Среднее арифметическое элементов расположенных на главной диагонали: ',s/n)

end.

2.

program z2;

const n=5;

var a:array [1..n,1..n] of integer;

i,j,s,sp:integer;

begin

writeln ('Квадратная матрица:');

for i:= 1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=Random(21)-10;

write(a[i,j]:5);

if i=j then s:=s+a[i,j]

end;

writeln;

end;

for i:= 1 to n do

for j:=1 to n do

if (a[i,j]>0) and (a[i,j]>s/n)then sp:=sp+a[i,j];

writeln('Сумма положительных элементов, превышаюших по величине среднее арифметическое всех элементов расположенных на главной диагонали: ',sp)

end.

3.

program z3;

const n=5;

var a:array [1..n,1..n] of integer;

i,j,m,k:integer;

begin

writeln ('Двумерный массив:');

for i:= 1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=Random(21)-10;

write(a[i,j]:5)

end;

writeln;

end;

m:=a[1,1];

for i:= 1 to n do

for j:=1 to n do

if a[i,j]<m then m:=a[i,j];

writeln ('Минимальный элемент ',m);

k:=0;

for i:= 1 to n do

for j:=1 to n do

if a[i,j]=m then

begin

writeln('Индексы [',i,',',j,']');

k:=k+1;

end;

writeln ('Количество минимальных элементов ',k)

end.

1

2

3

4

10

11

12

13

14

20

21

22

23

24

30

31

32

33

34

40

41

42

43

44

50

51

52

53

54

60

61

62

63

64

70

71

72

73

74

80

81

82

83

84

90

91

92

93

94

100

101

102

103

104

110

111

112

113

114

120

121

122

123

124

130

131

132

133

134

140

141

142

143

144

150

151

152

153

154

160

161

162

163

164

170

171

172

173

174

180

181

182

183

184

190

191

192

193

194

200

201

202

203

204

210

211

212

213

214

220

221

222

223

224

230

231

232

233

234

240

241

242

243

244

250

251

252

253

254

260

261

262

263

264

270

271

272

273

274

280

281

282

283

284

290

291

292

293

294

300

301

302

303

304

310

311

312

313

314

320

321

322

323

324

330

331

332

333

334

340

341

342

343

344

350

351

352

353

354

360

361

362

363

364

370

371

372

373

374

380

381

382

383

384

390

391

392

393

394

400

401

402

403

404

410

411

412

413

414

420

421

422

423

424

430

431

432

433

434

440

441

442

443

444

450

451

452

453

454

460

461

462

463

464

470

471

472

473

474

480

481

482

483

484

490

491

492

493

494

500

Объяснение: